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SUMMARY 


PROBLEM:  V  w 

Average  evoked  potentials  are  used  to  monitor  possible~dysfunctions  in  the 
central  nervous  system  of  rhesus  monkey  (M.  mulatta)  or  human  subjects  during 
impact  acceleration  studies  at  the  Naval  Biodynamics  Laboratory.  Automated 
procedures  are  required  to  collect  evoked  potential  via  the  Nicolet  Med-80® 
with  minimum  interaction  by  the  experimenter. 

FINDINGS: 

This  report  gives  complete  documentation  and  listings  for  five  computer  pro¬ 
gram;  developed  at  the  Naval  Biodynamics  Laboratory  to  record,  analyze,  and 
plot  evoked  potential  data.  The  programs  are  EPPROG,  PERDAT,  EPDATA,  PLOTEP, 
and  LSTPER. 

The  EPPROG  program  (Evoked  Potential)  is  a  central  program  used  as  a  pointer 
to  all  other  programs  in  the  evoked  potential  test  series.  A  short  introduc¬ 
tion  and  some  general  instructions  for  each  program  are  provided,  if  requested. 

The  PERDAT  program  (Personal  Data)  Is  used  to  collect  personal  and  montage 
information  for  the  evoked  potential  series  on  both  human  and  rhesus  subjects. 

The  EPDATA  program  (Evoked  Potential  Data)  is  used  to  automatically  collect 
and  store  parameter  values  and  evoked  potential  data. 

The  PLOTEP  program  (Plot  Evoked  Potentials)  is  used  to  plot  both  evoked  po¬ 
tential  parameter  and  waveform  data,  with  the  corresponding  personal  data  on 
the  Nicolet  Zeta  Plotter*. 

The  LSTPER  program  (List  Data)  is  used  to  provide  a  detailed  listing  of  the 
data  contained  in  the  personal  data  file  and  the  parameter  data  file. 

It  should  be  noted  that  these  programs  can  also  be  used  in  a  clinical  setting, 
though  some  modifications  of  the  personal  data  portions  should  be  made. 

RECOMMENDATAI ONS : 

Any  new  programs  or  changes  made  to  the  current  programs  should  be  incorpo¬ 
rated  in  this  manual . 
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EPPROG  (pointer  program)  . 

PERDAT  (personal  data)  . 

EPDATA  (evoked  potentials  collected)  . 

PLOTEP  (plot  evoked  potentials)  . 

LS1PER  (list  all  parameter  and  run  variables) 


APPENDIXES 

1.  Wiring  for  the  NIC-293  . 

2.  Flow  Charts  for  All  Programs  .... 

3.  Printouts  of  All  Programs  . 


EPPROG 


PURPOSE:  The  EPPROG  program  (Evoked  Potential)  Is  a  central  program  used  as  a 
pointer  to  all  other  programs  In  the  evoked  potential  test  series.  A 
short  Introduction  and  some  general  Instructions  for  each  program  are 
provided,  if  requested. 


10  The  variables  to  be  used  In  the  EPPROG  program  are  dimensioned. 
10  -  40  The  paper  is  advanced. 


50  The  user  Is  asked  whether  or  not  a  listing  or  a  description  of  the 

50  -  220  programs  being  offered  Is  needed.  A  ' Y '  response  to  the  question 

will  cause  some  general  Instructions  for  the  execution  of  all  pro¬ 
grams  to  be  printed  out.  A  listing  of  the  programs  in  the  evoked 
potential  series  and  the  file  names  used  In  calling  up  the  pro¬ 
grams  are  also  provided.  An  'N1  response  to  the  question  will 
cause  the  program  to  advance  to  line  230. 


230  The  user  inputs  the  name  of  the  program  to  be  executed,  and  vali- 
230  -  310  dates  the  response.  Via  a  conditional  branch,  the  EPPROG  program 
Is  advanced  to  the  location  which  contains  the  information  on  the 
requested  program.  The  program  requested  is  then  executed.  The 
user  can  enter  'END'  here  to  exit  from  the  program. 


320  These  lines  contain  a  brief  Introduction  to  each  of  the  programs. 
320  -  790  Some  of  the  programs  also  contain  the  pre-run  Information  needed. 
This  is  followed  by  a  RUN  statement  for  that  program. 


800 


End  of  program. 


PERDAT 


PURPOSE:  The  PERDAT  program  (Personal  Data)  Is  used  to  collect  personal  and 

montage  Information  for  the  evoked  potential  series  on  both  human  and 
rhesus  subjects. 


10  All  variables  to  be  used  In  this  program  are  dimensioned. 

10-50 


(JO  Values  are  assigned  to  some  variables. 

60  -  70 


80  The  following  steps  are  repeated  for  each  variable. 

80  -  710 

1.  Pis  set  equal  to  the  size  of  the  variable  under  considera¬ 

tion. 

2.  The  variable  under  consideration  Is  filled  with  a  series  of 

# 1 s  (see  SUBROUTINE  1930). 

3.  The  user  Is  now  asked  to  Input  the  value  of  the  variable.  If 

there  Is  no  Input  for  this  variable  then  the  return  key  is 
pressed  causing  the  #'s  to  be  left  In  place. 

4.  XX$  is  now  made  equal  to  the  variable  under  consideration  and 

the  user  is  asked  to  validate  the  variable's  value.*  See 
possible  responses  below: 

a) .  A  ' Y ’  will  allow  program  to  continue  to  the 

next  step. 

b) .  A  '#'  will  skip  to  part  b  of  step  6. 

c) .  Any  other  response  other  than  * Y *  or  '#' 

will  cause  the  program  to  return  to  step  3. 

5.  The  area  represented  by  #'s  is  cleared  (see  SUBROUTINE  2060). 

6.  a).  The  variable  Is  new  placed  in  Its  assigned  area.  The 

program  continues  to  step  7. 

b).  The  #'s  are  left  in  the  area  assigned  to  the  variable 
under  consideration. 

7.  The  size  of  Y$  Is  Increased  by  the  size,  P,  of  the  variable 

under  consideration. 

8.  The  program  now  moves  to  the  next  variable  and  returns  to  step 

1,  until  all  variables  have  been  viewed. 


Unless  otherwise  noted  a  * Y *  response  to  a  validation  request  will  allow 
the  continuation  of  the  program's  sequential  flow;  while  any  other 
response  will  cause  the  repetition  of  the  question. 


PERDAT 


720 

-  1460 


470 

l  -  1540 


550 

l  -  1710 


720 

-  1850 


TE:  IF 
TO 


Conditional  branch;  the  keyboard  Input  of  INPUT  A  and  INPUT  B  Is 
directly  related  to  the  number  of  channels  to  be  recorded.  The 
value  representing  the  number  of  channels  obtained  here  is  used  in 
the  plotting  of  the  evoked  potential  data.  The  user  is  asked  to 
Input:  (a)  the  electrode  placement  of  INPUT  A  (positive);  and  (b) 
the  electrode  placement  of  INPUT  B  (negative).  The  user  starts 
with  the  input  for  the  highest  numbered  channel  and  ends  with  the 
Input  to  channel  1.  If  there  are,  for  example,  only  six  channels 
being  recorded,  the  following  would  happen: 

The  markers  (#)  are  left  in  the  ranges  of  channels 
7  and  8,  then  steps  1,  2,  3,  5,  6a,  7,  and  8  of  the 
steps  followed  in  lines  80  -  710  are  followed. 


After  all  data  for  the  channels  has  been  entered,  a  listing  of  the 
channels  and  their  INPUT  A's  and  INPUT  B's  is  provided  and  the 
user  is  asked  to  validate  all  of  the  variable  values.  If  all 
values  are  correct  an  ' N '  response  will  cause  the  program  to  ad¬ 
vance  to  line  1720. 


Input  the  number  of  the  channel  that  is  to  be  changed  and  then 
input  the  correct  INPUT  A  and  INPUT  B  values.  The  user  Is  asked 
to  validate  the  variable's  value.  The  correct  value  then  replaces 
the  old  value  stored  in  Y$  (see  SUBROUTINE  1970).  The  program  is 
then  returned  to  line  1470. 


The  user  Is  asked  whether  or  not  data  are  to  be  stored.  A  * Y 1 
response  will  be  answered  with  a  request  for  the  file's  subscript. 
An  1 N '  response  will  cause  the  program  to  skip  to  line  1890.  Any 
other  response  will  cause  the  question  to  be  repeated.  Disk  drive 
#2  Is  selected,  start  of  DMEM  is  set  to  0,  and  the  size  of  DMEM  is 
set  to  IK.  The  user  Is  asked  to  input  the  file's  subscript  and 
validate  the  variable's  value.  The  file  header  is  made  equal  to 
the  first  digit  of  the  l.D.  number.  The  file  base  is  made  equal 
to  the  third  and  fourth  digits  of  the  l.D.  number.  The  data  con¬ 
tained  In  Y$  is  changed  from  normal  characters  Into  ASCII  code  and 
stored  on  disk.* 


FILE  ALREADY  EXISTS,  THE  ORIGINAL  FILE  IS  DELEATED  WITH  NO  WARNING 
THE  USER. 


PERDAT 


1860  The  user  Is  given  the  option  to  go  straight  to  the  EPOATA  pro- 
1860  -  1880  gram.  A  *Y*  response  will  cause  the  EPDATA  program  to  run.  An 
response  will  allow  the  program  to  return  to  sequential  flow. 
Any  other  response  will  cause  the  question  to  be  repeated. 


1890  The  user  has  the  option  to  return  to  the  pointer  program  (EPPROG) 
2890  -  2910  or  to  exit  the  program.  A  ‘Y*  response  will  cause  the  EPPROG 

progran  to  run.  An  ' N *  response  will  cause  the  program  to  exit. 
Any  other  response  will  cause  the  question  to  be  repeated. 


1920  Stop  execution  of  the  program.  The  following  are  subroutines. 
2090  End  of  the  program. 


2.3 


SUBROUTINES  FOR  PERDAT 


Subroutine 

PURPOSE: 


Subroutine 

PURPOSE: 


Subroutine 

PURPOSE: 


1930  (1930  -  1960) 

This  subroutine  places  a  series  of  markers  (#)  in  Y$  in  the  space 
allocated  to  the  input  variable. 

The  range  of  the  For/Next  loop  is  the  size  of  Y$,  represented  by 
the  W,  to  the  size  of  Y$  when  increased  by  the  size  of  the  vari¬ 
able  under  consideration  (W  +  P  -  1).  Each  Data  Memory  (DMEM) 
point  in  the  Increased  size  of  Y$  is  filled  with  #'s.  The  pro¬ 
gram  returns  to  its  sequential  flow. 


1970  (1970  -  2050) 

This  subroutine  enables  the  user  to  correct  ary  errors  made  in  the 
input  to  a  channel's  INPUT  A  or  INPUT  B. 

The  user  inputs  the  correct  INPUT  A  for  the  selected  channel  and 
is  asked  to  validate  the  variable's  value.  The  channels  new  INPUT 
A  replaces  the  old  value  in  Y$,  in  the  range  specified  in  lines 
1810  -  1880. 

The  user  inputs  the  correct  INPUT  B  for  the  selected  channel  and 
is  asked  to  validate  the  variable's  value.  The  channels  new  INPUT 
B  replaces  the  old  value  in  Y$,  in  the  range  specified  in  lines 
1810  -  1880.  The  program  is  returned  to  its  sequential  flow. 


2060  (2060  -  2080) 

This  subroutine  enables  the  user  to  check  the  value  of  the  variable 
just  requested. 

The  user  Is  asked  to  validate  the  value  of  the  variable  which  has 
just  been  entered.  A  ' Y '  Is  the  response  for  yes.  An  ' N '  is  the 
response  for  no  and  will  cause  the  question  to  be  repeated.  A 
return  is  the  response  for  a  variable  with  no  value.  The  program 
is  returned  to  its  sequential  flow. 


VARIABLES  USED  IN  PERDAT 


AS  -  represents  Individual  data  points  during  storage 

AIRTPS  -  air  temperature  in  room  at  start  of  experiment 

BASE  -  file  base 

BLANKS  -  empty  variable  used  to  cleanout  '#'  which  mean  no  response 
CHS  -  number  of  channels  to  be  recorded 
COMNTS  -  any  comments  on  experiment  or  subject 

DATES  -  date  of  experiment 

I NA$  -  new  value  for  INPUT  A 

INA1S  -  INPUT  A  for  channel  1 

INA2S  -  INPUT  A  for  channel  2 

INA3S  -  INPUT  A  for  channel  3 

INA4S  -  INPUT  A  for  channel  4 

INA5S  -  INPUT  A  for  channel  5 

INA6S  -  INPUT  A  for  channel  6 

INA7S  -  INPUT  A  for  channel  7 

INA8S  -  INPUT  A  for  channel  8 

INBS  -  new  value  for  INPUT  B 

INB1S  -  INPUT  B  for  channel  1 

INB2S  -  INPUT  B  for  channel  2 

INB3S  -  INPUT  B  for  channel  3 

INB43  -  INPUT  B  for  channel  4 

INB5S  -  INPUT  B  for  channel  5 

INB6S  -  INPUT  B  for  channel  6 

INB7S  -  INPUT  B  for  channel  7 

INB8S  -  INPUT  B  for  channel  8 

6F0RCS  -  G-Force  used  in  experiment 

HEAD  -  file  header 

HEARTS  -  subject's  heart  rate  at  the  start  of  experiment 
N1  -  start  of  range  for  INPUT  A 

N2  -  end  of  range  for  INPUT  A 

N3  -  start  of  range  for  INPUT  B 

N4  -  end  of  range  for  INPUT  B 

NAMES  -  name  of  subject 

P  -  size  of  the  variable  to  be  added  to  Y$ 

RCHS  -  the  channel  which  has  a  wrong  variable 

RUNNOS  -  run  number  for  experiment 

S  -  loop  control  variable 

SS  -  value  of  range's  for  listing  INPUT  A  &  INPUT  B 
SUB  -  file  subscript 

SUBNOS  -  subject  number 

SUBTPS  -  subjects  temperature  at  start  of  experiment 
TIMDAS  -  time-of-day  for  start  of  experiment 

W  -  place  marker  for  YS 

XS  -  reponse  to  'Is  variable  correct'  question  is  a  ' Y '  for  yes, 
an  ’ N *  for  no,  or  a  return  for  null  (empty)  variable 
XX$  -  temporary  retainer  for  a  variable  while  doing  a  visual 
check  on  it's  value 
YS  -  contains  all  data  for  storage 


EPDATA 


PURPOSE:  The  EPPDATA  program  (Evoked  Potential  Data)  is  used  to  automatically 
collect  and  store  parameter  values  and  evoked  potential  data. 


10  This  line  zeros  4K  of  memory  (DMEM). 


20  Variables  to  be  used  in  this  program  are  dimensioned  and  some  var- 
20  -  60  iables  have  values  assigned. 


70  The  variable  for  the  subject's  identification  (I.D.)  number  is 
70  -  200  zeroed,  and  the  user  inputs  the  correct  value.  The  user  is  asked 
to  validate  the  variable's  value*.  The  file  base  used  for  the 
storage  of  evoked  potentials  (E.P.)  is  made  equal  to  the  last  two 
numbers  of  the  1.0.  number.  The  file  header  Is  made  equal  to  the 
first  digit  (letter)  of  the  I.D.  number.  This  letter  is  either  an 
' H '  for  human,  or  an  * R '  for  rhesus  monkey.  The  variable  for  the 
file  subscript  is  zeroed.  The  user  is  asked  to  Input  the  file 
subscript's  correct  value  and  to  validate  that  value.  This  is 
followed  by  a  check  to  insure  that  the  value  is  in  the  range  of  0 
to  999.  If  the  value  is  not  in  this  range,  the  question  is  re¬ 
peated.  S  is  made  equal  to  the  file  subscript  and  will  later  be 
used  as  a  counter  for  the  file  subscript.**  A  value  of  zero  is 
placed  in  the  post  stimulus  delay  time. 


210  The  following  steps  are  taken: 

210  -  460  1.  Input  the  value  for  a  variable. 

2.  If  the  value  has  to  be  in  some  range  there  is  a 

check  to  Insure  that  the  value  is  in  this  range. 

3.  If  the  variable  Is  non-string,  its  value  is  placed 

in  a  string  variable  for  storage. 

4.  The  value  of  the  variable  under  consideration  is 

placed  In  Its  proper  storage  location  in  Y$  by 
the  counter  variable  W. 

5.  Pis  set  equal  to  the  size  of  the  variable  under 

consideration. 

6.  W  is  Increased  by  P. 


Unless  otherwise  noted,  a  * Y *  response  to  a  validation  request  will  allow  the 
continuation  of  the  program’s  sequential  flow,  while  any  other  response 
will  cause  the  repetition  of  the  question. 

**  NOTE:  IF  A  FILE  ALREADY  EXISTS,  THE  ORIGINAL  FILE  IS  DELETED  WITH  NO 
WARNING  TO  THE  USER. 


3.1 


EPDATA 


Each  of  the  following  variables  are  put  through  the  steps  (1  -  6) 
found  on  page  3.1. 


Wrist  stimulated:  WRISTS. 

Post  stimulus  deity  time:  DELAY. 

Number  of  stimuli  to  be  presented  per  second:  STSEC. 

Stimulus  period:  STPER  Is  calculated  by  dividing  1  by  the 
number  of  stimuli  to  be  presented  per  second.  This  value  is 
then  multiplied  by  1000  to  be  In  the  same  data  range  as  the 
other  values  (starts  at  step  4). 

Minimum  sweep  length:  SWPSZ  (skips  all  steps).  If  the  sweep 
length  Is  an  improper  value  an  error  message  Is  printed,  and 
the  user  Is  asked  to  Input  a  new  value  for  the  sweep  length 
(see  SUBROUTINE  1510). 

Size  of  memory:  SZMEM  is  calculated  by  dividing  the  sweep 
length  by  .04. 

Dwell  time:  DWELL  Is  calculated  by  dividing  the  sweep  length 
by  the  size  of  memory  to  be  used.  The  dwell  time  Is  now 
divided  by  1000  to  be  in  the  same  data  range  as  the  other 
values. 

The  dwell  time  is  multiplied  by  the  size  of  memory  to  obtain 
the  correct  sweep  length. 

Start  of  memory:  STMEM  is  set  to  0  and  along  with  size  of 
memory,  dwell  time  and  length  of  sweep  are  stored  In  memory 
(starts  at  step  4). 


370  The  user  is  given  a  chance  to  find  the  stimulus  threshold  level  for 

370  -  670  the  subject.  When  the  subject's  threshold  has  been  found  a  ' Q '  is 
typed  to  turn  off  the  stimulus  (see  SUBROUTINE  1620). 

It  is  now  requested  that  the  user  input  values  for  the  following 
variables  (see  steps  1-6  found  on  page  3.1): 

1.  Subject's  threshold:  THRES$. 

2.  Stimulus  Intensity:  STINTS. 

3.  Amplifier/filter's  sensitivity:  SENTY. 

4.  Ampllfler/f liter's  low  bandpass:  LBAND. 

5.  Ampl ifier/filter' s  high  bandpass:  HBAND. 

6.  Number  of  sweeps  to  be  averaged:  SWPS. 

7.  Number  of  channels  to  be  collected:  CHS. 


3.2 


EPDATA 


680  The  user  is  offered  a  listing  of  all  the  variables  to  be  used  in 

680  -  840  the  experiment.  A  ' Y *  response  will  provide  a  list  of  all  vari¬ 

ables  with  an  identification  number  located  on  the  left  hand  side. 
An  'N'  response  will  cause  the  program  to  skip  to  line  850.  Any 
other  response  will  cause  the  question  to  be  repeated. 


850  After  looking  at  the  variable  list,  the  user  is  asked  if  the 

850  -  1190  values  are  correct.  A  * Y *  response  will  cause  the  program  to  skip 
to  line  1200  of  the  program.  An  'N'  response  will  cause  the  user 
to  be  asked  which  variable  is  to  be  changed.  Any  other  response 
will  cause  the  question  to  be  repeated.  The  variable  to  be  chang¬ 
ed  is  identified  by  the  numerical  value  found  on  the  left  hand 
side.  The  following  variables  can  not  be  changed  as  they  are  not 
under  user  control : 

1 .  dwel 1  time 

2.  stimulus  period 

3.  start  of  memory 

4.  size  of  memory 

It  should  be  noted  that  changing  the  following  variables'  values 
affects  other  parameter  values: 

1.  stimulus  per  second  -  changes  stimulus  period. 

2.  sweep  length  -  changes  size  of  memory  and  dwell  time. 

Any  changes  made  on  the  list  of  variables  will  also  be  made  on  the 
file  of  these  parameters  (see  SUBROUTINE  1750).  This  section  is 
repeated  until  there  is  a  * Y *  response  to  the  "are  variables  cor¬ 
rect"  question. 


1200  Disk  drive  #  2  is  selected  for  storage  of  files.  The  letter  P 

1200  -  1240  (for  parameter),  represented  by  the  value  208,  is  placed  In  the 
file  header.  The  file's  base  and  subscript  are  entered  to  form 
the  file  name.  The  data  file  Is  then  translated  Into  ASCII  code 
and  stored  on  disk. 


3.3 


EPDATA 


1250  The  size  of  memory  to  be  used  is  zeroed.  The  stimulus  is  turned 

1250  -  1320  on  (see  SUBROUTINE  1620).  To  begin  averaging  waveforms,  the  user 
hits  any  key.  Once  the  averaging  is  completed  the  baseline  is 
zeroed  and  the  stimulus  is  turned  off.  The  user  is  asked  whether 
or  not  the  waveforms  collected  are  to  be  stored  on  disk.  A  * Y ' 
response  will  cause  a  D  (for  data),  represented  by  the  value  196, 
to  appear  In  the  file  header.  The  file  base  and  file  subscript 
remain  the  same  as  for  the  parameter  file.  The  data  file  is  then 
stored  on  disk  #2.  The  subscript  number  is  now  incremented  by 
one,  in  case  the  user  wants  to  rerun  the  program.  An  ' N ’  response 
will  cause  the  program  to  skip  to  line  1330,  any  other  response 
will  cause  the  question  to  be  repeated. 


1330  The  user  is  asked  whether  or  not  a  plot  of  the  evoked  potential 
1330  -  1400  data  Is  wanted.  A  ' Y *  will  cause  a  plot  of  all  channels  to  appear 
on  the  Hewlett  Packard  X-Y  plotter®.  An  * N 1  response  will  cause 
the  program  to  skip  to  line  1440.  Any  other  response  will  cause 
the  question  to  be  repeated.  The  user  is  now  asked  whether  or  not 
there  is  to  be  a  second  plot  of  the  data  enabling  a  change  in  the 
vertical  display  scale  (VDS).  A  *Y'  response  will  cause  a  plot  to 
be  produced  (make  any  VOS  changes  before  typing  ' Y ' ) .  An  ‘ N '  re¬ 
sponse  will  cause  the  program  go  to  line  1410,  any  other  response 
will  cause  the  question  to  be  repeated. 


1410  The  user  is  asked  if  the  program  is  to  be  rerun  without  any  changes 

1410  -  1460  in  the  parameter  values.  An  'N'  response  will  cause  the  program 
to  skip  to  line  1470.  A  1 Y '  response  will,  allow  the  continuation 
of  the  program's  sequential  flow.  Any  other  response  will  cause 
cause  the  question  to  be  repeated.  The  user  is  asked  if  there  are 
any  parameter  values  to  be  chanaed.  A  * Y 1  response  here  will  make 
the  program  go  to  line  680;  an  rN’  response  will  make  the  program 
go  to  line  1250,  any  other  response  will  cause  the  question  to  be 
repeated. 


1470  The  user  Is  asked  whether  or  not  the  pointer  program  EPPROG  Is  to 

1470  -  1490  be  run.  A  ' Y '  response  will  execute  the  EPPROG;  an  'N*  response 
will  make  the  program  go  to  line  1830,  any  other  response  will 
cause  the  question  to  be  repeated. 


1500  Stop  execution  of  the  program.  The  following  are  subroutines. 


1790 


End  of  program. 


SUBROUTINES  FOR  EPDATA 


SUBROUTINE  1510  (1510  -  1610) 

PURPOSE:  This  subroutine  Is  used  to  calculate  the  amount  of  memory  to  be 
used,  the  dwell  time,  and  the  length  of  the  sweep  to  be  made  In 
averaging  evoked  potentials. 

To  determine  the  size  of  memory,  the  length  of  the  sweep  Is  div¬ 
ided  by  .04.  The  size  of  memory  Is  then  set  equal  to  the  next 
largest  power  of  2.  To  determine  the  dwell  time,  the  length  of 
sweep  Is  divided  by  the  size  of  memory  and  the  remainder  Is  then 
multiplied  by  1000.  The  dwel 1  time  cannot  be  less  than  40  psec., 
therefore  If  the  value  of  the  dwell  time  Is  less  than  40  the  time 
Is  set  equal  to  40  ysec.  The  dwell  time  Is  now  divided  by  1000 
to  place  It  In  the  same  millisecond  range  as  the  other  time  para¬ 
meter  value.  This  new  dwell  time  Is  multiplied  by  the  size  of 
memory  to  find  the  correct  sweep  length. 


SUBROUTINE  1620  (1620  -  1740) 

PURPOSE:  This  subroutine  Is  used  to  turn  on  the  stimulus,  with  parameters 
pre-set  In  the  NIC-293  I/O  Controller  Unit. 

The  stimulus  Is  turned  on  using  the  following  parameters:  stim¬ 
ulus  period,  stimulus  period  x  1000,  and  the  delay  time.  A  neg¬ 
ative  trigger  is  selected  and  the  user  Is  able  to  view  the  on¬ 
going  evoked  potential  signal  being  received.  This  subroutine 
Is  also  used  to  start  the  stimulus  for  finding  the  subject's 
threshold  and  for  the  collection  of  averaged  evoked  potentials 
(see  Appendage  1). 


SUBROUTINE  1750  (1750  -  1790) 

PURPOSE:  This  subroutine  enables  the  user  to  make  changes  In  the  values  of 
•hy  variables  to  be  used  In  the  experiment. 

The  user  Is  asked  to  Input  the  value  of  the  parameter  variable  to 
be  changed  and  then  validates  the  response.  The  new  parameter 
value  Is  placed  In  Its  correct  position  In  the  parameter  file. 


VARIABLES  USED  IN  EPDATA 


A$  -  represents  individual  data  points  from  Y$  during  storage 
CHS  -  number  of  channels  being  recorded 
CHS$  -  number  of  channels  being  recorded 
DELAY  -  delay  time  before  recording 
DELAYS  -  delay  time  before  recording 
DWELL  -  dwell  time 
DWELLS  -  dwell  time 
HBAND  -  high  bandpass 
HBANDS  -  high  bandpass 
LBAND  -  low  bandpass 
LBANDS  -  low  bandpass 
LLEWD  -  dwell  time  divided  by  1000 

N1  -  start  of  range  for  the  variable  being  changed 
N2  -  end  of  range  for  the  variable  being  changed 
NO  -  the  number  of  the  variable  being  changed 
REPTS  -  stimulus  period  mul tipi ied  by  1000 
REPTSS  -  stimulus  period  mul  tipi  led  by  1000 
S  -  loop  control  variable 
SUB  -  file  subscript 
SSUB  -  file  subscript 
SENTY  -  amplifier  sensitivity 
SENTYS  -  amplifier  sensitivity 
STINTS  -  stimulus  Intensity 
STMEMS  -  start  of  memory 
STPER  -  stimulus  period 
STPERS  -  stimulus  period 
STSEC  -  number  of  stimuli  presented  per  second 

STSECS  -  number  of  stimuli  presented  per  second 

SUBNOS  -  subject's  I.D.  number 
SWPS  -  number  of  sweeps  to  be  averaged 

SWPSS  -  number  of  sweeps  to  be  averaged 

SWPSZ  -  length  of  sweep 
SWPSZS  -  length  of  sweep 
SZ^H  -  size  of  memory 
SZNEMS  -  size  of  memory 
THRESS  -  subject's  stimulus  threshold 
VAL$  -  new  value  for  the  variable  being  changed 
W  -  place  marker  for  Y$ 

WRISTS  -  wrist  being  stimulated 

X$  -  response  to  a  YES  or  NO  question 

Y$  -  contains  all  variable  data  for  this  program 


PURPOSE:  The  PLOTEP  program  (Plot  Evoked  Potential)  Is  used  to  plot  both  evoked 
potential  parameter  and  waveform  data,  with  the  corresponding  personal 
data  on  the  Nicolet  Zeta  Plotter®. 


10  All  variables  to  be  used  In  this  program  are  dimensioned,  and 

10  -  110  values  are  assigned  to  some  of  the  variables. 


".20  This  line  sets  the  starting  point  of  Data  Memory  (DMEM)  to  0  and 
memory  size  to  IK.  Disk  drive  #2  which  contains  the  data  files  is 
selected. 


130  The  user  is  asked  to  input  the  subject’s  identification  (I.D.)  num- 

130  -  310  ber,  and  then  validate  the  response.*  The  file  base  is  made  equal 

to  the  last  two  digits  of  the  I.D.  number,  while  the  file  header  is 
made  equal  to  the  first  digit  (a  letter)  of  the  I.D.  number.  The 
user  inputs  the  subscript  number,  which  is  to  be  used  in  retrieving 
data  files,  and  validates  the  response.  This  is  followed  by  a 
check  to  insure  that  the  value  is  in  the  correct  data  range.  A 
conditional  branch  is  used  on  the  value  of  the  file  header  to  see 
whether  the  file  header  represents  a  human  file  (read  value  of  40 
or  H),  or  a  rhesus  file  (read  value  of  50  or  R).  The  correct  file 
header  (write  values  of  200  *  H  or  210  =  R),  file  base  and  file 
subscripts  are  stored  in  DMEM.  The  selected  personal  file  is  read 
from  disk  and  translated  from  ASCII  code  Into  normal  characters. 
These  characters  are  then  stored  in  V$.  A  P  represented  by  208  is 
put  into  the  file  header  in  order  to  call  up  the  parameter  file. 

The  file  is  read  from  disk  using  the  file  base  and  subscript  used 
in  calling  the  personal  file.  The  new  file  is  translated  from 
ASCII  code  into  normal  characters,  and  placed  in  Y$. 


320  The  sweep  length,  HS,  and  the  number  of  channels  recorded,  0$,  are 
obtained  from  VS.  CH  is  made  equal  to  the  string  variable  for  the 
number  of  channels  recorded,  CHS.  The  increments  to  be  used  on  the 
horizontal  time  scale  for  the  sweep  length  are  determined  by  divid¬ 
ing  the  sweep  length  by  10. 


*  Unless  otherwise  noted  a  ' Y '  response  to  a  validation  request  will  allow  the 
continuation  of  the  program's  sequential  flow,  while  any  other  response  will 
cause  the  repetition  of  the  question. 


PLOTEP 


330  The  user  Inputs  the  minimum  voltage  level,  VA,  obtained  from  the 
330  -  410  experiment  and  validates  the  variable's  value.  VR  Is  made  equal 
to  the  minimum  voltage  level  times  2  to  get  the  full  (+/-)  range. 
This  number  Is  divided  by  ten,  giving  the  size  of  the  Increments 
to  be  used  on  the  vertical  voltage  scale.  The  user  Inputs  the 

?a1n  which  Is  to  be  used  In  the  plotting  of  the  evoked  potential 
E.P.)  and  validates  the  variable's  value. 


120  The  Zeta  Plotter's®  pen  should  be  placed  In  the  upper  right  hand 
corner  when  facing  the  plotter.  The  current  pen  position  of  the 
plotter  is  selected  to  be  the  point  of  reference  (origin).  The 
rotation  of  the  pen  is  selected  as  1.0.* 


T - T 

1  1 

)-->  1  1 

USER  1  1 

)-->  1  1 

1  1 

1  xl 


flow  of  paper 

x  -  current  position  of  pen 
called  0.0 


430  SUBS  is  made  equal  to  the  SUB.  A  variable  which  represents  the 
filename  of  the  E.P.  file  to  be  plotted  'N0F$',  Is  built  by 
having  Its  first  digit  as  the  first  digit  of  the  I.D.  number, 
its  second  and  third  digits  as  the  third  and  forth  digits  of  the 
I.D.  number,  and  its  fourth,  fifth,  and  sixth  digits  as  the  file 
subscript  number. 


450  Via  a  conditional  branch,  the  program  advances  to  the  location 

i  -  480  which  contains  the  correct  format  for  plotting  the  number  of 

channels  recorded. 


See  Zeta  Plotter®  -  SBASIC  Commands  handout  M0290601  for  SUP800. 


The  following  are  steps  to  be  followed  In  the  plotting  of  exper¬ 
imental  data: 

1.  Plotting  paper  Is  advanced  and  the  point  of  origin  for  the 

Zeta  Plotter*  Is  selected. 

2.  Value  Is  given  to  the  variable  which  determines  the  distance 

that  channel  Information  Is  to  be  printed  from  the  bottom  of 
the  page. 

3.  The  number  of  channels  to  be  plotted  Is  obtained  from  the  per¬ 

sonal  file. 

4.  The  montage  Information  for  the  selected  channel  Is  obtained 

from  the  parameter  file. 

5.  The  channel  number  and  the  montage  information  is  plotted  in 

Its  proper  location. 

6.  The  top  vertical  line  for  the  box  containing  the  bottom  E.P. 

waveform  to  be  plotted  is  drawn  with  incremented  tick  marks. 

7.  The  header  information  for  the  vertical  scale  is  drawn  at  a 

right  angle  (2.0  rotation)  to  the  other  header  Information. 

8.  The  rest  of  the  header  information  Is  printed  at  the  top  of 

the  page.  This  Is  repeated  until  the  container  and  header 
Information  for  all  E.P.  channels  has  been  plotted. 

9.  The  value  for  the  size  of  DMEM,  SZ,  Is  obtained  from  the  para¬ 

meter  file.  The  size  of  memory  for  each  channel,  PLTSZ,  is 
determined  (PLTSZ  =  SZ  /  CH).  The  size  of  DMEM  for  the  E.P. 
file  is  Input  Into  BASEXC.  Disk  drive  #2  Is  selected.  The 
value  196,  representing  'D'  for  E.P.  data  file.  Is  put  Into 
the  file  header.  The  file  base  number  and  the  subscript 
number  used  to  select  the  personal  and  parameter  files  are 
used  to  select  the  E.P.  data  file.  The  E.P.  data  file  is 
then  read  from  disk.  The  size  of  memory  used  in  storing  each 
individual  channel  is  placed  In  DMEM.  The  present  pen  loca¬ 
tion  is  made  the  point  of  origin,  and  a  rotation  of  1.0  is 
selected. 

10.  A  conditional  branch  for  the  plotting  of  E.P.  waveforms  Is 

dependent  on  the  number  of  channels  which  were  recorded 
during  the  experiment. 

11.  The  graph  paper  Is  advanced  to  the  page  where  the  highest 

numbered  channel  Is  to  be  plotted  and  the  point  of  origin  Is 
found.  The  E.P.  waveform  for  that  channel  Is  read  from  disk 
and  plotted,  followed  by  the  plotting  of  all  other  waveforms 
waveforms  In  their  prospective  boxes. 

12.  After  the  plotting  of  channel  one's  waveform  the  pen  is  re¬ 

turned  to  the  point  of  origin. 


PLOTEP 


1180  The  user  is  asked  whether  or  not  another  file  is  to  be  plotted.  If 

1180  -  1250  the  response  is  * Y '  then  the  program  continues  with  its  sequential 
flow.  An  * N '  response  will  advance  the  program  to  line  1310.  Any 
other  response  will  cause  the  question  to  be  repeated.  The  user  is 
asked  whether  or  not  the  next  file  to  be  plotted  is  in  the  same 
series  as  the  previous  file.  A  * Y*  response  will  advance  the  pro¬ 
gram  to  line  1230.  If  the  response  Is  1 N*  the  program  advances 
graph  paper  to  a  clean  page  (see  SUBROUTINE  2100)  and  the  program 
is  returned  to  line  120.  Any  other  response  will  cause  the  ques¬ 
tion  to  be  repeated.  The  user  Is  asked  whether  or  not  the  next 
file  to  be  plotted  Is  the  next  number  In  the  series.  A  * Y '  re¬ 
sponse  will  increase  the  file  subscript  by  one,  advance  the  graph 
paper  to  a  clean  page  (see  SUBROUTINE  2100),  and  return  the  pro¬ 
gram  to  line  420.  An  1 N '  response  will  advance  the  program  to 
line  1260,  any  other  response  will  cause  the  question  to  be 
repeated. 


1260  Input  the  subscript  of  the  new  file  and  validate  the  value.  A  'Y' 
1260  -  1300  response  will  advance  the  graph  paper  (see  SUBROUTINE  2100)  and 
return  the  program  to  line  420,  while  any  other  response  will 
cause  the  question  to  be  repeated. 


1310  The  user  Is  asked  whether  or  not  another  program  in  the  E.P.  series 
1310  -  1330  is  to  be  run.  A  * Y '  response  will  Initiate  the  Pointer  Program, 
while  an  ' N '  response  will  cause  the  program  to  exit.  Any  other 
response  will  cause  the  program  to  repeat  the  original  question. 


1335  Stop  execution  of  the  program.  The  following  are  subroutines. 


2190 


End  of  program. 


A  A  /.  JV  .*■ 


SUBROUTINES  FOR  PLOTEP 


SUBROUTINE  1340  (1340  -  1380) 

PURPOSE:  The  purpose  of  this  subroutine  is  to  plot  a  channel's  montage  infor¬ 

mation  in  the  correct  location  on  the  page. 

The  number  of  the  channel  being  plotted  Is  printed.  The  channel's 
correct  INPUT  A  montage  Is  pulled  off  of  the  parameter  file  and 
printed.  A  dash  is  then  printed  to  separate  the  montages.  The 
channel's  correct  INPUT  B  montage  is  pulled  off  of  the  parameter 
file  and  printed.  The  program  then  returns  to  Its  sequential 
flow. 


SUBROUTINE  1390  (1390  -  1420) 

PURPOSE:  The  purpose  of  this  subroutine  is  to  draw  the  header  information  for 

the  vertical  voltage  scale  at  a  right  angle  to  all  other  header 
Information. 


The  Zeta  Plotter*  pen  is  returned  to  its  point  of  origin.  The 
rotation  of  the  pen  direction  is  changed  to  2.0,  and  the  pen  is 
moved  into  position  for  plotting.  The  header  information  for 
the  vertical  voltage  scale  is  printed.  The  pen  is  moved  to  the 
bottom  of  the  preceding  page.  This  location  is  made  the  new 
point  of  origin  with  a  rotation  of  1.0.  The  program  is  returned 
to  its  sequential  flow. 


SUBROUTINE  1430  (1430  -  1460) 

PURPOSE:  The  purpose  of  this  subroutine  Is  to  draw  the  top  of  the  enclosure 

which  contains  the  E.P.  waveform  for  a  file  with  an  odd  number  of 
recorded  channels.  Only  the  lower  box  is  drawn  for  the  individual 
channel . 

The  value  of  XX  Is  set  to  -10.  The  Zeta  Plotter*  pen  is  moved 
into  position  and  the  top  horizontal  line  is  drawn  for  the  E.P. 
waveform  box.  The  eleven  Incremented  tick  marks  on  the  top  hori¬ 
zontal  line.  All  header  information  and  the  rest  of  the  box  is 
now  printed  (see  SUBROUTINE  1470). 


4.5 


SUBROUTINES  FOR  PLOTEP 


SUBROUTINE 

PURPOSE: 


SUBROUTINE 

PURPOSE: 


SUBROUTINE 

PURPOSE: 


1470  (1470  -  1920) 

The  purpose  of  this  subroutine  Is  to  plot  the  header  information  and 
the  rest  of  the  bottom  enclosure  for  plotting  an  E.P.  waveform. 

All  header  information  Is  plotted.  The  bottom  horizontal  line 
with  Incremented  tick  marks  and  the  time  scale  is  plotted,  along 
with  its  header  Information.  The  left  vertical  line  is  plotted 
with  it's  incremented  tick  marks  on  the  voltage  scale.  The  tick 
marks  for  the  center  line  of  the  lower  box  are  plotted  followed 
by  the  plotting  of  the  lower  right  vertical  line  with  incremented 
tick  marks. 


1930  (1930  -  2090) 

The  purpose  of  this  subroutine  is  to  plot  the  enclosures  for  the 
upper  E.P.  enclosure. 

The  upper  left  vertical  line  with  the  voltage  scale  is  drawn  with 
incremented  tick  marks.  The  top  horizontal  line  is  plotted  with 
incremented  tick  marks,  as  is  the  right  vertical  line.  The  center 
line  for  the  upper  enclosure  is  now  plotted.  The  program  is  re¬ 
turned  to  its  sequential  flow. 


2100  (2100  -  2180) 

The  purpose  of  this  subroutine  is  to  advance  the  graph  paper  to  a 
clean  page  for  the  plotting  of  another  E.P.  file. 

The  paper  is  advanced  via  a  conditional  branch  according  to  the 
number  of  channels  plotted  in  the  last  execution  of  the  program. 
The  program  is  returned  to  its  sequential  flow. 


4.6 


VARIABLES  USED  IN  PLOTEP 


G-FORCE 

DATE: 

file  base  number 

distance  incrementation  for  tick  marks 
number  of  channels  recorded 
number  of  channels  being  plotted 
NAME: 

CH.#1 

CH.#2 

CH.#3 

CH.#4 

CH.#5 

CH.#6 

CH.#7 

CH.#8 

distance  from  bottom  of  page  for  plotting  channel  information 
SUBJECT  NUMBER: 

SLED  RUN  NUMBER: 

SOMATOSENSORY  EVOKED  POTENTIAL 
FILENAME: 

(IN  MSEC.) 

PLOT  GAIN: 

gain  to  be  used  in  plotting  of  E.P.  waveforms 
(IN  UV) 
file  header 

incrementation  for  length  of  sweep  scale 

length  of  sweep 

loop  control  variable 

DELAY  TIME: 

STIMULI/SECOND: 

DWELL  TIME  (IN  US): 


VARIABLES  USED  IN  PLOTEP 


SWEEP  LENGTH: 

distance  incrementation  for  tick  marks 

start  of  location  for  'INPUT  A'  montage 
end  of  location  for  'INPUT  A'  montage 
start  of  location  for  'INPUT  B'  montage 
end  of  location  for  'INPUT  B'  montage 
NUMBER  SWEEPS: 

name  of  data  file  tc  be  plotted 

number  of  channels  recorded 

distance  for  incrementation  of  dashes 

individual  data  points  from  DMEM  to  Y$ 

size  of  memory  used  in  storage  of  individual  waveforms 

file  subscript  number 

file  subscript  number 

subject's  I.D.  number 

size  of  memory  used  in  the  storage  of  waveforms 

ASC  data  from  data  memory  for  V$ 

individual  data  points  from  DMEM  to  V$ 

distance  for  plotting  length  of  sweep  scales 

distance  for  plotting  voltage  level  scale 

ASC  data  from  data  memory  for  Y$ 

voltage  level  in  E.P.  recording 

incremenation  for  the  range  of  the  voltage  level 

parameter  file 

loop  control  variable 

WRIST  STIMULATED: 

distance  from  edge  of  paper  for  making  tick  marks 
response  to  a  ' Y '  or  an  ' N '  question 
personal  data  file 

distance  from  edge  of  paper  for  making  dashes 


LSTPER 


PURPOSE:  The  LSTPER  program  (List  Data)  is  used  to  provide  a  detailed  listing 
of  the  data  contained  in  the  personal  data  file  and  the  parameter 
data  file. 


10  All  the  variables  to  be  used  in  this  program  are  dimensioned. 


20  The  range  of  data  memory  (DMEM)  is  provided  with  0  as  the  start 
and  IK  as  the  size.  Disk  drive  #2  is  selected,  as  It  is  here 
that  the  data  files  are  stored. 


30  The  user  inputs  the  subject's  identification  number  (I.D.),  and 
30  -  140  then  validates  the  value.  The  file  header  is  the  first  digit  of 
the  I.D.  number  (a  letter),  and  the  file  base  is  the  third  and 
fourth  digit  of  the  I.D.  number.  The  user  now  Inputs  a  three 
digit  file  subscript  to  be  used  In  calling  the  correct  data  files 
and  validates  the  subscript’s  value.  The  value  of  the  subscript 
is  checked  to  ensure  that  it  is  in  the  correct  data  range. 


150  A  letter  H  (200)  for  human,  or  an  R  (210)  for  rhesus  Is  placed  in 

150  -  200  the  file  header  'PFH' ,  the  file  base  is  placed  in  'PFB',  and  the 

file  subcript  Is  placed  in  'PFS' .  After  the  filename  has  been 
selected  the  data  file  is  read  from  disk  into  DMEM.  Individual 
data  points  are  read  from  DMEM,  translated  from  ASCII  code  Into 
normal  characters,  and  placed  in  Y$. 


210  Input  the  letter  P  (208)  for  parameter  in  the  file  header.  The 
210  -  250  file  is  read  from  disk  into  DMEM.  The  individual  data  points  are 
read  from  DMEM,  translated  from  ASCII  code  to  normal  characters, 
and  placed  in  V$. 


260  To  continue  the  program,  the  user  is  asked  to  advance  the  paper 

260  -  280  to  the  top  of  a  new  page  and  type  1 Y * .  This  allows  a  separation 

of  unwanted  instructions  from  the  desired  listing  of  the  personal 
and  parameter  data  values. 


290  The  variable  In  question  Is  printed  out  followed  by  Its  assigned 
290  -  710  value.  The  program  advances  to  the  next  variable. 


LSTPER 


720  The  user  is  asked  whether  or  not  another  personal  data  file  is  to 

720  -  750  be  listed.  A  * Y *  response  will  return  the  program  to  line  30. 

An  ' N '  response  will  continue  the  program  in  its  sequential  flow. 
Any  other  response  will  cause  the  question  to  be  repeated. 


760  The  user  is  asked  whether  or  not  another  program  is  to  be  executed. 
760  -  780  A  ' Y *  response  will  cause  the  execution  of  the  pointer  program 
(EPPROG).  An  * N '  response  will  stop  the  program.  Any  other  re¬ 
sponse  will  cause  the  question  to  be  repeated. 


790 


End  of  program. 


VARIABLES  USED  IN  LSTPER 


file  base 
file  header 
loop  control  variable 
file  subscript 

subject's  identification  number 

ASC  data  from  data  memory 

response  to  a  yes  or  no  question 

contains  variable  values  from  the  personal  data  file 

contains  variable  values  from  the  parameter  data  file 


APPENDIX  1 


PATCH  PANEL  CONNECTIONS  MADE  ON  THE  NIC-293® 


PATCH  PANEL  CONNECTIONS  MADE  ON  THE  NIC-293®  * 


SOURCE 

DESTINATION 

B-C2 

B-D7 

B-Cl 

A-Al 

B-C6 

B-D5 

B-C4 

A-C8 

A-C8 

A-Jl 

B-C2 

A-A3 

A-J2 

B-D3 

B-E5 

B-D4 

A-G3 

B-D6 

B-H3 

B-Jl 

B-J 1 

B-J  2 

B-J2 

B-J  3 

FUNCTIONS  OF  PINS 


A-Al  -  BNC  connector  A 

A-A3  -  BNC  connector  C 

A-C8  -  Amphenol  terminal  V 

A-G3  -  I/O  level  output  (if  the  I/O  level  is  low  then  the  timer  is 
enabled;  if  I/O  level  is  high  then  the  timer  is  disabled) 
A-Jl  -  One  Shot  input  (0  to  4  volt  transition) 

A-J2  -  One  Shot  output  (100  nanosecond  pulse) 

B-Cl  -  (-)l  Buffered  timing  pulse  output 

B-C2  -  (+)1  Buffered  timing  pulse  output 

B-C4  -  (-) 2  Buffered  timing  pulse  output 

B-C6  -  (-)3  Buffered  timing  pulse  output 

B-D3  -  ORed  and  buffered  trigger  inputs  for  trigger  A1 

B-D4  -  ORed  and  buffered  trigger  inputs  for  trigger  B1 

B-D5  -  ORed  and  buffered  trigger  inputs  for  trigger  A2 

B-D6  -  ORed  and  buffered  trigger  inputs  for  trigger  B2 

B-D7  -  ORed  and  buffered  trigger  inputs  for  trigger  A3 

B-E5  -  unassigned  decoded  I/O  command  used  to  start  timers 

B-H3  -  Internal  clock  frequency  (5  MHz) 

B-01  -  Timer  clock  #  1 

B-J2  -  Timer  clock  #  2 

B-J  3  -  Timer  clock  #  3 


See  NIC-293®Timer  Configuration  Handout  for  Prestimulus  Averaging. 

See  NIC  1080®  Series  Description  and  Instructions  Manual  for  NIC-293  I/O 
Controller®. 


v  v 


DIMENSION  VARIABLES 
&  ASSIGN  VALUES 


♦ 

o 


INPUT  VARIABLES  REAL  VALUE 

1.  SUBJECT  I.D.  NUMBER 

2.  DATE  OF  EXPERIMENT 

3.  G-FORCE 

4.  RUN  NUMBER 

5.  TIME-OF-DAY 

6.  AIR  TEMPERATURE 

7.  SUBJECT'S  TEMPERATURE 

8.  SUBJECT'S  HEART  RATE  , 

9.  COMMENTS  ON  EXPERIMENT/ 

10.  NUMBER  OF  CHANNELS  / 


STORE  VARIABLE 
INTO  Y$ 


RUN  EPDATA 


'N 


RUN  EPPROG 


DIMENSION  VARIABLES 
&  ASSIGN  VALUES 


'INPUT  SUBJECT'S  I.D. 
NUMBER  AND  THE  FILE, 
SUBSCRIPT 


INPUT  VARIABLE  VALUES  FOR 

1.  WRIST  STIMULATED 

2.  DELAY  TIME 

3.  STIMULI  PER  SECOND 


|  STIMULUS  PERIOD | 
CALCULATED 


L 


INPUT  SWEEPLENGTH 


7 


SIZE  OF  DMEM,  SWEEP 
LENGTH,  i  DWELL 
TIME  CALCULATED 


f  INPUT  VARIABLE  VALUES  FOR 

1.  SUBJECT'S  THRESHOLD 

2.  STIMULUS  INTENSITY 

3.  AMPLIFIER/FILTER  SENSITIVITY 

4.  AMPLIFIER/FILTER  LOW  BANDPASS 

5.  AMPLIFIER/FILTER  HIGH  BANDPASS 

6.  NUMBER  OF  SWEEPS  COLLECTED  i 

7.  NUMBER  OF  CHANNELS  RECORDED  / 


INCREASE  SUBSCRIPT 


LIST  EPPRQG 

$ 

10  DIM  PROGtd)  ,  XK1) 

20  PRINT  ;  PRINT  J  PRINT  ;  PRINT  {  PRINT  {  PRINT  ;  PRINT  ;  PRINT  ;  PRINT  ,*  PRINT 

30  PRINT  ;  PRINT  ,*  PRINT  ;  PRINT  ;  PRINT  ;  PRINT  J  PRINT  }  PRINT  ;  PRINT  ;  PRINT 

40  PRINT  ;  PRINT  ;  PRINT  {  PRINT  ,*  PRINT  ;  PRINT  J  PRINT  J  PRINT  ;  PRINT  ;  PRINT 

50  PRINT  “DO  YOU  NEED  A  LISTING  OF  THE  PROGRAMS  BEING  OFFERED  OR" 

SO  INPUT  “DO  YOU  NEED  SOME  INFORMATION  DM  THE  PURPOSE  OF  THE  PROGRAMS?  -  ",  X* 

70  IF  Xt  «  "V“  THEN  80  ;  IF  X*  *  "N"  THEN  230  GOTO  50 

80  PRINT  ;  PRINT  "  THE  PROGRAM  DISK  SHOULD  BE  IN  DISK  DRIVE  I  1." 

90  PRINT  ”  THE  DATA  DISK  SHOULD  BE  IN  DISK  DRIVE  R  2." 

100  PRINT  ;  PRINT  "  NOTE:  IF  YOU  HAKE  A  ERROR  NO  ERROR  MESSA6E  IS  PRINTED." 

110  PRINT  "  THE  QUESTION  HILL  JUST  BE  REASKED. " 

120  PRINT  ;  PRINT 

130  PRINT  H  THE  FOLLOWING  IS  A  LISTING  OF  ALL  PROGRAMS  IN  THE  EVOKED  POTENTIAL" 
140  PRINT  "  SERIES  AND  THE  SYMBOLS  TO  BE  USED  UHEN  CALLING  A  PROGRAM . " 

150  PRINT  ;  PRINT  "INPUT  OF  PERSONAL  DATA  -  PERDAT" 

160  PRINT  "COLLECTION  OF  PARAMETER  AND  EVOKED  POTENTIAL  DATA  -  EPDATA" 

170  PRINT  “PLOTTING  OF  THE  EVOKED  POTENTIAL  DATA  ON  THE  2ETA  PLOTTER  -  PLOTEP" 

180  PRINT  "OBTAINING  A  DETAILED  LISTING  OF  ALL  EXPERIMENTAL  DATA  -  LSTPER" 

190  PRINT  "TRANSFER  OF  DATA  FILES  TO  THE  ECLIPSE  -  MEDECL" 

210  PRINT  ;  PRINT  "IF  YOU  DESIRE  TO  EXIT  THE  PROGRAM  TYPE  'END'  AS  A  " 

220  PRINT  "  RESPONSE  TO  THE  F0LL0U1N6  QUESTION." 

230  PRINT  ,*  INPUT  "INPUT  THE  SYMBOL  OF  THE  DESIRED  PROGRAM  -  ",  PROGtd) 

240  PRINT  "IS  ",  PROGtd ),  "  CORRECT?" 

250  INPUT  Xt<1) 

260  IF  Xtd)  =  "Y"  THEN  270  ;  GOTO  230 
270  PRINT 

280  IF  PROGt  < 1 )  =  "VARUSE"  THEN  320  ;  IF  PROOF < 1 )  *  "PERDAT"  THEN  350 

290  IF  PROGtd)  =  "LSTPER"  THEN  560  ;  IF  PROGtd)  *  "EPDATA"  THEN  600 

300  IF  PROGtd)  =  “MEDECL"  THEN  700  J  IF  PROGtd)  *  "PLOTEP"  THEN  730 

310  IF  PROGtd)  =  "END"  THEN  800  ;  IF  PROGtd)  =  PROGtd)  THEN  140 

350  PRINT  "THIS  PROGRAM  IS  USED  TO  OBTAIN  AND  SAVE  FILES  ON  PERSONAL  DATA  FOR" 

360  PRINT  "  HUMAN  AND  RHESUS  MONKEY  SUBJECTS  USED  IN  THE  NBDL  EVOKED" 

370  PRINT  "  POTENTIAL  PROGRAM." 

380  PRINT  ;  PRINT  "BEFORE  RUNNING  A  SUBJECT  THE  FOLLOWING  INFORMATION" 

390  PRINT  "  SHOULD  BE  OBTAINED:" 

400  PRINT  ;  PRINT  "  SUBJECT'S  NAME" 

410  PRINT  "  SUBJECT'S  I.D.  NUMBER" 

420  PRINT  "  G-FQRCE  TO  BE  USED  IN  EXPERIMENT" 

430  PRINT  "  RUN  NUMBER  FOR  EXPERIMENT" 

440  PRINT  "  TIHE-OF-DAY" 

450  PRINT  "  DATE  OF  EXPERIMENT" 

460  PRINT  "  ROOM  AIR  TEMPERATURE  (IN  F)" 

470  PRINT  “  SUBJECT'S  BODY  TEMPERATURE  (IN  F>" 

480  FRINT  "  SUBJECT'S  HEART  RATE  (BEATS  PER  MIN.)" 

49o  PRINT  "  NUMBER  OF  CHANNELS  TO  BE  RECORDED" 

500  PRINT  "  MONTAGES  TO  BE  USED  IN  RECORDING" 

510  PRINT;  PRINT  "BE  SURE  THAT  YOU  KNOW  THE  CORRECT  FILE  SUBSCRIPT  " 

520  PRINT  J  PRINT  "ANSWER  ALL  QUESTIONS  WITH  Y  (YES),  N  (NO),  OR  A  *  (N/A)," 


530  PRINT  "  UNLESS  OTHERWISE  REOUESTED.  (NOTE)  THE  M  IS  ALSO  USED  IN" 

540  PRINT  H  THE  'IS  VARIABLE  CORRECT'  QUESTION." 

550  RUN  PERBAT 

560  PRINT  "THIS  PROGRAM  IS  USED  TO  OBTAIN  A  DETAILED  LISTING  OF  ALL  OF  THE" 
570  PRINT  "  PERSONAL  DATA  FROM  THE  PERDAT  PROGRAM  AND  THE  PARAMETER" 

580  PRINT  "  INFORMATION  FROM  THE  EPDATA  PROGRAM." 

590  RUN  LSTPER 

600  PRINT  "THIS  PROGRAM  IS  USED  TO  AUTOMATICALLY  COLLECT  EVOKED  POTENTIAL" 

610  PRINT  "  DATA." 

620  PRINT  ;  PRINT  "THE  FOLLOWING  INFORMATION  SHOULD  BE  KNOWN  BEFORE  RUNNING" 
630  PRINT;  PRINT  "  THE  STIMULUS  DELAY  TIME" 

640  PRINT  “  NUMBER  OF  STIMULI  PER  SECOND" 

650  PRINT  "  NUMBER  OF  SWEEPS  TO  BE  COLLECTED" 

660  PRINT  "  NUMBER  OF  CHANNELS  TO  BE  RECORDED" 

670  PRINT  "  SUBJECT'S  I.D.  NUMBER" 

681  PRINT  "  LENGTH  OF  SUEEP" 

690  RUN  EPDATA 

700  PRINT  ;  PRINT  "THIS  PROGRAM  IS  USED  TO  TRANSFER  PERSONAL,  EVOKED" 

710  PRINT  "  POTENTIAL,  OR  PARAMETER  DATA  FROM  THE  NED-80  TO  THE  ECLIPSE." 
720  RUN  HEDECL 

730  PRINT  "THIS  PROGRAM  IS  FOR  THE  PLOTTING  OF  EVOKED  POTENTIAL  DATA  ONTO  THE 
740  PRINT  "  2ETA  PLOTTER." 

750  PRINT  ;  PRINT  "WHEN  STANDING  IN  FRONT  OF  THE  ZETA  PLOTTER  THE  PEN’ 

760  PRINT  "  SHOULD  BE  IN  THE  UPPER  RIGHT  HAND  CORNER." 

770  PRINT  ;  PRINT  "ANSWER  ALL  QUESTIONS  WITH  A  Y  (YES)  OR  N  (NO)," 

780  PRINT  "  UNLESS  OTHERWISE  REQUESTED." 

790  RUN  PLOTEP 
800  STOP  ;  END 


LIST  PROGBU 

t 

10  REM  DIMENSION  VARIABLES 
20  DIM  PR0GK6)  ,  X*<  1 ) 

30  REM  ADVANCE  PAPER 

40  PRINT  ;  PRINT  ;  PRINT  ;  PRINT  J  PRINT  ;  PRINT  ;  PRINT  ;  PRINT  ;  PRINT  ;  PRINT 

SO  PRINT  ;  PRINT  *,  PRINT  ;  PRINT  ;  PRINT  ;  PRINT  ;  PRINT  ;  PRINT  ;  PRINT  ;  PRINT 

40  PRINT  ;  PRINT  ;  PRINT  ;  PRINT  ;  PRINT  ;  PRINT  ;  PRINT  ;  PRINT  ;  PRINT  ;  PRINT 

70  REM  ENABLES  USER  TO  OBTAIN  INFORMATION  ON  A  PROGRAM  IS  THE  E.P  SERIES 
80  PRINT  “DO  YOU  NEED  A  LISTING  OF  THE  PR06RANS  BEING  OFFERED  OR" 

VO  INPUT  “DO  YOU  NEED  SOME  INFORMATION  ON  THE  PURPOSE  OF  THE  PROGRAMS?  -  ",  X* 

100  IF  Xl(t)  «  "Y"  THEN  120  ;  IF  Xtd)  *  "N"  THEN  290  ;  60T0  80 
110  REM  6ENERAL  INFORMATION  ON  A  PROGRAM 

120  PRINT  ;  PRINT  "  THE  PROGRAM  DISK  SHOULD  BE  IN  DISK  DRIVE  N  1." 

130  PRINT  "  THE  DATA  DISK  SHOULD  BE  IN  DISK  DRIVE  «  2." 

140  PRINT  ;  PRINT  ”  NOTE:  IF  YOU  MAKE  A  ERROR  NO  ERROR  MESSAGE  IS  PRINTED." 

15i  PRINT  "  THE  QUESTION  WILL  JUST  BE  REASKED." 

160  PRINT  J  PRINT 

170  REM  LISTING  OF  PROGRAMS  AND  NAMES  USED  TO  CALL  THEM 

180  PRINT  "  THE  FOLLOWING  IS  A  LISTING  OF  ALL  PROGRAMS  IN  THE  EVOKED  POTENTIAL" 

190  PRINT  "  SERIES  AND  THE  SYMBOLS  TO  BE  USED  WHEN  CALLING  A  PROGRAM." 

200  PRINT  ;  PRINT  "INPUT  OF  PERSONAL  DATA  -  PERDAT" 

210  PRINT  "COLLECTION  OF  PARAMETER  AND  EVOKED  POTENTIAL  DATA  -  EPDATA" 

220  PRINT  "PLOTTING  OF  THE  EVOKED  POTENTIAL  DATA  ON  THE  ZETA  PLOTTER  -  PLOTEP" 

230  PRINT  "OBTAINING  A  DETAILED  LIST 1N6  OF  ALL  EXPERIMENTAL  DATA  -  LSTPER" 

240  PRINT  "TRANSFER  OF  DATA  FILES  TO  THE  ECLIPSE  -  HEDECL" 

260  PRINT  ;  PRINT  "IF  YOU  DESIRE  TO  EXIT  THE  PROGRAM  TYPE  'END'  AS  A  " 

270  PRINT  "  RESPONSE  TO  THE  FOLLOWING  QUESTION." 

280  REH  CALL  DESIRED  PROGRAM 

290  PRINT  ;  INPUT  "INPUT  THE  SYMBOL  OF  THE  DESIRED  PROGRAM  -  ",  PROGtd) 

300  PRINT  "IS  ",  PROGtd),  "  CORRECT?" 

310  INPUT  Xtd) 

320  IF  Xtd )  =  "Y"  THEN  330  ;  GOTO  290 
330  PRINT 

340  REM  CONDITIONAL  BRANCH  TO  PROGRAM  SELECTED 
350  IF  PROGtd )  »  "PERDAT"  THEN  440 

360  IF  PR0G4U)  *  "LSTPER"  THEN  460  ;  IF  PROGtd)  =  "EPDATA"  THEN  710 

370  IF  PROGtd )  =  "HEDECL"  THEN  820  ;  IF  PROGtd)  =  "PLOTEP"  THEN  860 

380  IF  PROGtd)  *  "END"  THEN  940  ;  IF  PROGtd)  =  PROGtd)  THEN  190 

430  REH  INFORMATION  ON  THE  PERSONAL  DATA  PROGRAM 

440  PRINT  "THIS  PROGRAM  IS  USED  TO  OBTAIN  AND  SAVE  FILES  ON  PERSONAL  DATA  FOR" 

450  PRINT  "  HUMAN  AND  RHESUS  HONKEY  SUBJECTS  USED  IN  THE  NBDL  EVOKED" 

460  PRINT  "  POTENTIAL  PROGRAM." 

470  PRINT  ;  PRINT  "BEFORE  RUNNING  A  SUBJECT  THE  FOLLOWING  INFORMATION" 

480  PRINT  "  SHOULD  BE  0B:AIN£B:" 

490  PRINT  ;  PRINT  "  SUBJECT'S  NAME" 

500  PRINT  "  SUBJECT'S  I.D.  NUMBER" 

510  PRINT  "  6-FORCE  TO  BE  USED  IN  EXPERIMENT" 

520  PRINT  "  RUN  NUMBER  FOR  EXPERIMENT" 

530  PRINT  "  TIME-OF-DAY" 


540  PRINT  “  DATE  OF  EXPERIMENT" 

550  PRINT  "  ROOM  AIR  TEMPERATURE  (IN  F>" 

560  PRINT  “  SUBJECT'S  BODY  TEMPERATURE  (IN  F)" 

570  PRINT  “  SUBJECT'S  HEART  RATE  (BEATS  PER  MIN.)M 

580  PRINT  11  NUMBER  OF  CHANNELS  TO  BE  RECORDED" 

590  PRINT  H  MONTAGES  TO  BE  USED  IN  RECORDING" 

600  PRINT;  PRINT  "BE  SURE  THAT  YOU  KNOU  THE  CORRECT  FILE  SUBSCRIPT  " 

610  PRINT  ;  PRINT  "ANSWER  ALL  QUESTIONS  WITH  Y  (YES) ,  N  (NO),  OR  A  N  (N/A),H 
620  PRINT  "  UNLESS  OTHERWISE  REQUESTED.  (NOTE)  THE  «  IS  ALSO  USED  IN” 

630  PRINT  "  THE  'IS  VARIABLE  CORRECT'  QUESTION." 

640  RUN  PERDAT 

650  REM  INFORMATION  ON  THE  LISTING  OF  PERSONAL  AND  PARAMETER  FILE  VARIABLES 
660  PRINT  "THIS  PROGRAM  IS  USED  TO  OBTAIN  A  DETAILED  LISTING  OF  ALL  OF  THE" 

670  PRINT  "  PERSONAL  DATA  FROM  THE  PERDAT  PROGRAM  AND  THE  PARAMETER" 

680  PRINT  "  INFORMATION  FROM  THE  EPDATA  PROGRAM." 

690  RUN  LSTPER 

70V  REM  INFORMATION  ON  THE  EVOKED  POTENTIAL  DATA  PROGRAM 

710  PRINT  "THIS  PROGRAM  IS  USED  TO  AUTOMATICALLY  COLLECT  EVOKED  POTENTIAL" 

720  PRINT  "  DATA." 

730  PRINT  ;  PRINT  "THE  FOLLOWING  INFORMATION  SHOULD  BE  KNOWN  BEFORE  RUNNING" 
740  PRINT;  PRINT  “  THE  STIMULUS  DELAY  TIME" 

750  PRINT  “  NUMBER  OF  STIMULI  PER  SECOND" 

760  PRINT  ■  NUMBER  OF  SWEEPS  TO  BE  COLLECTED" 

770  PRINT  "  NUMBER  OF  CHANNELS  TO  BE  RECORDED" 

780  PRINT  "  SUBJECT'S  I.D.  NUMBER" 

790  PRINT  "  LENGTH  OF  SUEEP" 

800  RUN  EPDATA 

810  REN  INFORMATION  ON  THE  TRANSFER  OF  DATA  PROGRAM 

820  PRINT  ;  PRINT  “THIS  PROGRAM  IS  USED  TO  TRANSFER  PERSONAL,  EVOKED" 

830  PRINT  "  POTENTIAL,  OR  PARAMETER  DATA  FROM  THE  MEB-80  TO  THE  ECLIPSE." 
840  RUN  MEDECL 

850  REM  INFORMATION  ON  THE  PLOTTING  OF  EVOKED  POTENTIALS  PROGRAM 

860  PRINT  "THIS  PROGRAM  IS  FOR  THE  PLOTTING  OF  EVOKED  POTENTIAL  DATA  ONTO  THE" 

870  PRINT  "  ZETA  PLOTTER." 

880  PRINT  ;  PRINT  "UHEN  STANDING  IN  FRONT  OF  THE  ZETA  PLOTTER  THE  PEN" 

890  PRINT  "  SHOULD  BE  IN  THE  UPPER  RIGHT  HAND  CORNER." 

900  PRINT  ;  PRINT  "ANSWER  ALL  QUESTIONS  WITH  A  Y  (YES)  OR  N  (NO)," 

910  PRINT  "  UNLESS  OTHERWISE  REQUESTED." 

920  RUN  PLOTEP 
930  REM  EXIT  PR06RAM 
940  STOP  ;  END 


OK 


LIST  PERBAT 

1 

10  Bill  RCHfd ) , BLANK* (  iO) ,XX*(60> ,X* <1 > ,CH4'2> ,NANE*C35> ,C0NNT* (60) 

20  Dirt.  SUPnO* (5> ,DATE*<9 ) ,GF0RC*<6) ,RUNN04(7) ,TIHDA*(6) ,A1RTP* <6)  ,SUBTP*<5> 

30  BIN  HEART*(4 ) , INAt ( 5) , INAl * (5) , INA2*<5) ,INA3* (5) , 1NA4* (5) , 1NA5* (5) , INA6* i5) 
40  Bln  INA?*(5>,INA8*(5),INBi  : 5 ; , I«B1 * <5) . 1 462* (5 ) ,INB3* <5 ) , INB4* <5 ) , 1NB5* (5) 
50  BIrt  INB6*(5)  ,  INB7*(5)  ,  IkBSS *5)  ,  Y*t230) 

60  N 1  ( 1 )  =  0  ;  N2U>  =  0  ;  N3i  1 )  =  0  ;  N4U)  =  0  ;  U  =  1  ;  Y*  =  "  " 

70  blank*  =  - 

80  PRINT  ;  PRINT  “INPUT  NAME  AS  FQLL0U3." 

90  P  =  35  ;  SOSUB  1930 

100  INPUT  'LAST,  FIRST,  THEN  Pi. I.  -  ",  NAME* ( 1 ) 

110  XXiCI)  =  NAME*(1)  ;  GOSUB  2060 

120  IF  X*<1)  =  “YB  THEN  130  ;  IF  X*  =  "R"  THEN  140  ;  GOTO  100 

130  Y*(U)  =  BLANK*  i  1 !  ;  Y*(U)  =  NAfiEsd) 

140  U  =  U  «•  P  ;  P  =  5  J  GOSUB  1930 

1 5i  PRINT  ;  PRINT  "H  =  HUNAN  SUBJECT  F:  =  RHESUS  SUBjECT" 

*  iC  INC-UT  "SUBJECT  S  I.B.  NUMBER  -  ",  SUBNOUd) 

1 70  X X SCI)  -  SUBNCl* \ 1 )  J  GOSUB  20sG 

ISO  IF  X* < 1 )  =  "Y"  THEN  190  ;  IF  Xt(1)  =  THEN  200  \  GOTO  150 
190  Y*(U)  =  BLANK* ( 1  )  ;  Y*(U)  =  SUBN04M) 

200  U  *  U  +  P  ;  P  =  9  ;  GOSUB  1930 

210  INPUT  "HON  'DAY/YEAR  -  ",  BATE* < 1 ) 

220  XX* <  1 )  =  BATE*  ( 1 )  ;  GOSIJB  2060 

230  IF  X * < 1 >  =  THEN  240  ;  IF  X*d/  =  THEN  250  ;  GOTO  210 

240  Y * 1  u  1  =  B L A N L' * ( 1 .  ;  Y * ( U >  =  BATE* i  1  ) 

250  U  =  U  +  P  ;  P  *  6  ;  GOSUB  1930 

2  c’.  *  F 1  "  "IT  'j-'Z-Z  E  IE  BE..C-.  :*’£•  InE  4  mITh  A  0  FIRST  (,T.:E.  ■!  E - :  ' 

270  INPUT  "G-FORCE  -  ",  GF0RC*(1) 

280  XX*U>  =  GFOROd )  ;  GOSUB  2060 

290  IF  A* 1 1 )  •=■  " Y "  THEN  300  ;  IF  x*d)  -  "N"  THEN  340  ;  GOTO  2o0 

300  I*  5F0RCE* ■' 4 ,4  >  *  -♦»  OP  SC0FC*'4,4  ■=  THEN  310  ;  GOTO  260 

310  IF  GF0RC*(5,5)  =  "X"  OR  GFORC* <5 ,5 >  *  "Y"  OR  GF0RC*<5,5>  =  "Z"  THEN  330 

320  IF  GFORC* ( l )  =  GFORC* ( 1 )  THEN  2dG 

330  Y *  -:  U  •  =  PLAN! .!  11  ;  V 4  ( u  \  s  S'ORCl ' 1 ' 

340  U  =  U  +  P  ;  F  =  7  ;  GOSUB  1930 

350  InRuT  "RJN  NLdBET  -  ",  Ruit.- L  . 

360  XXid;  =  RL'NnG* ( 1  ’  ;  GOSUB  2060 

370  IF  XtdJ  -  "1”  THEN  380  ;  IF  Xi('i)  *  "X"  TH_N  390  ;  GOTO  350 
380  Y * < U >  =  BlANlIU;  ,*  Y*<w;  =  RUNNGSi!) 

3®0  U  =  U  ♦  =•  ;  P  *  6  ;  GOSUB  1930 

400  INPUT  "TINE-OF-BAi  On  A  24  HOUR  CLOCK  U .  E .  14:77)  -  ",  TIHBAUd' 

410  XXtU)  *  T IrtDA* <  1  >  ;  GOSUB  2060 

420  IF  X*(1)  =  "Y"  THEN  430  ;  IF  XK1)  =  THEN  440  ;  GOTO  400 

430  Y*(U)  =  blank* ( i  >  ;  i*iu>  =  t ihda* *.  1 1 

4  40  U  =  U  *  P  ;  p  -  5  ;  GOSUB  1(J70 

450  INPUT  "AIR  TENPERATURE  UN  F)  -  ",  AIFdP* ( 1 ) 

AtO  XX* (1)  =  AIRTP* ( 1  )  ;  GOSUB  2060 

470  IF  X*U)  =  "Y"  THEN  480  ;  IF  X* 0 1 )  =  THEN  500  ;  GOTO  450 
480  IF  AIRTP*!  1)  <  "6?"  OR  AIPTr'  1 )  '•  "81"  THEN  450 


490  Y*(li:  =  BLANK* ( 1 )  ;  Y»(U)  =  AIRTP*(1) 

500  U  =  U  +  P  ;  P  =  5  ;  GOS'JB  1930 

51 C  INPUT  "SUBJECT'S  TEMPERATURE  (IN  F>  -  ",  SUBTP* ( 1 ) 

520  XXtd)  =  SUBTPJd)  ;  GOSUB  2040 

530  IF  X*d)  =  * Y "  THEN  540  ;  IF  X*(1)  =  "K"  THEN  550  ;  GOTO  510 
54C  Y*(U>  =  BLANK  (1 )  ;  Y* < U )  =  SUBTP* <1> 

550  U  =  U  ♦  P  ;  P  -  4  ;  GOSUB  1930 

560  INPUT  "SUBJECTS  HEART  RATE  (BEATS, ftl*. )  -  ",  HEART* ( I ) 

570  XX«  < 1 )  =  HEART  * ( 1 )  ;  GOSUB  2060 

580  IF  X S f  1  )  -  "Y"  THEN  590  ;  IF  X*d)  =  Hfc"  THEN  600  ;  GOTO  560 

590  Y*.«)  =  BLANK*  1)  ;  Y*(U>  =  HEART* ( I ) 

600  b  =  U  +  P  ;  F  =  60  ;  GOSUB  1930 

610  INPUT  "PRINT  COMMENTS  (USE  LESS  THAN  60  CHARACTERS)  -  ",  COUNT* <1 ) 
620  XX*(1  >  =  COMNT * ( 1 )  ;  GOSUB  2060 

630  IF  X*(l)  =  "Y”  THEN  640  ;  IF  X»(1)  =  THEN  650  ;  GOTO  610 
640  Y*(U)  =  BLANKtd)  ;  Y* (li )  =  CGMNT*(1) 

65 J  U  =  W  ♦  P  ;  F  =  2  ;  GOSUB  1930 

6sO  INFUT  "hw’HBER  OF  CHANNELS  BEING  RECORBEI'  (1  -  8?  -  ‘  ,  CH*(1) 

670  xx* n:-  =  ch*( i  >  ;  gqsub  20 £.o 

680  IF  X*(1)  =  "Y"  THEN  690  ;  IF  x*(l)  --  "N"  THEN  710  ;  GOTO  660 

690  IF  CHI ( 1 )  <  "1"  OR  CH*(1)  >  "8"  THEN  660 

700  i  ♦  i u >  =  Blank* d-  ;  Ydu>  =  ch*o 

710  U  =  U  +  P 

720  IF  CH*(1)  =  "1"  THEN  1380  ;  IF  CH*!1)  *  "2"  THEN  1290 

730  IF  Crt*  i  1 )  =  "3  ‘  TmEN  1200  ;  IF  CHT.1i  =  ”4"  THEN  11  iO 

740  IF  CH*!'i>  =  "5''  THEN  1020  ;  Ic  CHi»d5  *  "6"  THEN  930 

750  IF  CH*d)  =  "7"  THEN  840 

■  O  V  F  ■  j  ,  W  .  -  J  J  V 

7H  PRINT  "INPUT  NON' AGE  FOR  CHANNEL  6" 

760  input  1  input  a  -  ' ,  inasty) 

790  n,u;  -  Blank *d i  ;  ‘i*(U;  *  inagti,1 

800  U  =  U  +  F  ;  '■  -  5  ;  GCSIJB  1930 

310  INPUT  "  INPUT  B  -  ",  lNBS»d> 

620  T I w )  -  BLANK*  i  1  )  ilvO)  =  INB31  •  >  > 

87:  U  =  U  ♦  P  ;  GO^O  850 

840  P  =  10  ;  GOSUB  1930  ;  U  =  U  +  P 


850 

PRINT 

"INPUT  MONTAGE 

FOR  ChANKEu  1 

860 

P  =  5 

;  GOSUB  1930 

870 

INPUT 

"  INPUT  A  - 

l: ,  INA.’S  v  1  i 

650 

Y*  <  W ) 

=  jtANK*d/  ; 

1*iU;  =  INA.’li  1 ) 

8’0 

u  =  u 

.  r.  .  r.  _  c  . 

■»  r  ,  r  -  w  , 

GOSUB  1930 

900 

INPUT 

"  INP-.'T  B  * 

",  1NB7*  d  ' 

910 

Y*(U) 

=  BLANK* d  )  ; 

Y  *  l  U )  =  INB7* ( 1  i 

920 

u  =  u 

♦  P  ;  GOTO  940 

930 

P  =  20 

i  ;  GOSUB  1930 

;  U  =  U  ♦  P 

940 

PRINT 

"INPUT  MONTAGE 

FOR  CHANNE..  4" 

950 

P  =  5 

;  GOSUB  1930 

960 

INPUT 

"  INPUT  A  - 

",  INA6* ( 1 ) 

970 

Y*(U) 

=  BLANK*  d)  ; 

Y  * ( U )  =  INA6*(  1 ) 

980 

U  =  U 

*  p  ;  r  =  5  ; 

GOSUB  1930 

990 

INPUT 

"  INPUT  B  - 

",  INB6*d  ) 

8.6 


1000 

Yiiin 

=  BLANKS (1 )  ; 

1010 

u  =  u 

+  P  ;  GOTO  103 

1020 

P  =  30  ;  GOSUB  1930 

1030 

PRINT 

"Input  montage 

1040 

P  = 

5  ;  GOSUB  1930 

1050 

INPUT 

"  INPUT  A  - 

1060 

Y  t  ( U ) 

=  BLANKS  0 1 >  ; 

1070 

u  =  u 

+  p  ;  p  =  5  ;  1 

1080 

INPUT 

"  INPUT  B  -  1 

1090 

Y*lU) 

=  BLANK*  d>  ;  ' 

1100 

u  =  u 

+  P  ;  GOTO  1 1 2< 

1110 

p  =  40  J  GOSUB  1930  : 

1120 

PRINT 

"INPUT  MONTAGE 

1130 

P  =  5 

*,  GOSUB  1930 

1140 

INPUT 

"  INPUT  A  -  ■ 

1150 

Y  i  ■;  w  ;• 

=  Blanks  1)  ;  \ 

116.' 

u  =  U 

♦  P  ;  p  *  5  ;  t 

11 '0 

INPUT 

"  INF'UT  b  -  ’ 

INE5K1 } 


INA4*d  ' 


H(t)  = 

U  *  U  + 
P  =  50 
F  F I N  7  " 
P  =  5  ; 

INPUT  " 

r « <  w  •  = 

u  =  u  ♦ 

INPUT  " 
Y1  * 

U  =  w  + 

P  ■■■  o  C 
PRINT  " 

P  8  5  ; 

INPUT  “ 
YI'.U;  - 
U  =  It  * 
INPUT  “ 
Y*<i)  = 
W  =  U  - 
p  =  70  : 
PRINT  M] 

f>  S  5  • 

INPUT  " 

»*iw;  - 

U  =  U  t 
INPUT  " 
Y*(U>  = 

U  *  U  ♦ 
PRINT  ; 
SS  ( 5  )  = 
FOR  S  = 
SSd)  = 


i N P I J r  b  -  ",  iNBviMii 
:  BLANK*  d)  ;  Y * ( 2 )  3  INB4*d) 

♦  P  ;  GOTO  1210 

;  gosub  i?30  ;  u  -  u  ♦  p 

.iNrJi  rtON  1  Mi.’"  FuF  CHAN.’El  3" 

;  GOSUE  1930 

INFO  I  A  -  ",  INA3H 1  ) 

:  BLANKS ; 1 )  ;  YS • U)  *  1NA3*(!) 

►  P  ;  P  =  5  ;  GOSUB  1930 
1  INPUT  B  -  “ ,  INB3*d) 

:  Blank* •  *  ••  ;  y < : u >  *  inf;*  1 ) 

■  P  ;  GOTO  1300 
;  SOSUi-  ■  -'30 

’INPUT  rtC^hGL  fu.'.  C ;• 

C-OSJt  1930 

INPUT  A  -  ",  INA2*  i  1  i 
PLANKtit :•  ;  Yr.u)  -  ina:i;|> 
p  ;  P  *  5  ;  GOSUB  1930 
InPuT  B  -  ",  INB2*d; 

BLANK*' 1 5  ;  Hit'  .=  INE2SC) 

P  I  GOTO  1390 
J  GOSUB  1930  ;  U  -  U  -*  p 
INPUT  MONTAGE  FOR  CHANNEL  1" 

GOSUB  1930 

INPUT  A  -  ",  INA1 I ( 1 ) 

Bi-ANi.j  ,  1  1  ;  !»  iUJ  =  !«►  :  i  ■.  I  1 
P  ;  F  =  5  ;  GOSUB  1930 
INPUT  B  -  ",  INBIYC  ? 

BLANKS ■>  1 )  ;  Y*(U)  =  INBltd) 

p  ;  P  =  5  ;  GOSUE  1930 

PRINT  "  CH.  H" ,  "INPUT  A",  "INPUT  BH 


INPUT  A  - 
PLAN‘.*d;  ; 

P  •  r  2  c  • 
r  »  r  -  j  , 

Input  b  - 
B  L  A  N  K  >  i  1 )  j 


INPUT  A  - 

Blank * .  1  i  j 

p  ;  p  =  5  ; 
input  b  - 

BLANKS  ■,  1 )  ; 

p  ;  p  =  5  ; 

PRINT  ”  CH 


1  to  e 

SS  0 1 )  -  10 


8.7 


1510  PRINT  S  IN  4,4  ,  YXSSil )  ,SS(1  M4 ) ,  YXSSi 1 )+5,SS( 1 >+9) 
1520  NEXT  5 

1530  PRINT  J  INPUT  "ARE  THERE  ANY  ERRORS  IN  THE  ABOVE  -  ",  X4 
1540  IF  4(4  =  "Y"  THEN  1550  ;  IF  X4  =  “N"  THEN  1720  ;  GOTO  1530 
1550  INPUT  “UHICH  CHANNEL  IS  INCORRECT  -  ",  RCH$(1 ) 

1560  PRINT  "IS  ",  RCHS ( 1 S ,  "  CORRECT?" 

1570  INPUT  Xi  i  1 ) 

1580  IF  XXI)  =  "Y"  THEN  1590  ;  GOTO  1550 
1590  IF  RCH4 ( 1 )  =  "1"  THEN  1640  ;  If  RCH4  i  1 ;  =  "2”  THEN  1650 

1600  IF  RCH4 ( 1 )  =  "3"  THEN  1660  }  IF  RCHiii)  ~  "4"  THEN  1670 

1610  IF  RCH4 ( 1 )  =  "5"  THEN.  1680  ,“  IF  RCHX  I )  =  "a"  THEN  1690 

1620  IF  RCHX1)  =  "7"  THEN  1700  ;  IF  RCHX1)  =  "6"  THEN  1710 

1630  IF  RCH$<  1 )  =  RCHI(I)  THEN  1550 


1640 

HI (1 ) =21 5 

N2( 1  )=2  19 

f 

N3( 1 )=220 

;  N4( 1 )=224 

9 

GOSUB 

1970 

9 

GOTO 

1470 

1650 

N  ( 1 )=205 

N2i1 )=20? 

r 

N3 i 1 >=21 0 

;  N4< 1 >—214 

9 

GOSL'B 

1970 

9 

GOTO 

1  4~0 

1660 

N1  d>  =  195 

N2v 1 )  =  1 9? 

t 

n3 ( 1  )  =  2O0 

;  N4 ( 1 ) =204 

9 

GOSUB 

1970 

9 

GOTO 

1470 

167v 

N1 ( 1 )=185 

N2i1  .'  =  13? 

9 

N3  i  1  )  =  1 90 

;  N4( 1 )=194 

f 

GOSUB 

1970 

9 

GOTO 

147; 

1680 

N1  (1 )  =  1  75 

N2(1 )=17- 

9 

N3( 1  )  =  180 

;  N4  •:  1 )  =1 84 

t 

GOSUB 

1970 

9 

GOTO 

1 4^0 

1690 

N1 i : )=• c5 

N2( 1 )=1 e9 

9 

N3 (1 ) =1 70 

;  N4(1)=174 

9 

GOSUB 

1970 

t 

GOTO 

1470 

1700 

N1  (1 )  =  1 55 

N2( 1 )=1 5? 

I 

N3( 1 )=1 60 

;  N4  < 1 >  =  1 64 

9 

GOSUB 

1970 

9 

GOTO 

1470 

1710 

N1 <1 )=145 

N2(1 j=149 

t 

M3  •;  1  )  =  1 50 

;  N4 ; i )  =  54 

9 

GOSUB 

1970 

9 

GOTO 

1470 

1720 

PRINT  ;  INPUT  "STORE  T 

HIS  PERSONAL 

DATA  -  ",  > 

* 

1720 

II 

** 

X 

u~ 

M 

THEN  1740 

• 

9 

IF  XI  =  "N 

"  THEN  1390 

• 

9 

GOTO 

1720 

1740  PUT  2  IN  FDV  ;  PUT  0  IN  PST  ;  PUT  1024  IN  PS2 

1750  PRINT  ;  INPUT  "INPUT  FILE  SUBSCRIPT  (3  15  0  -  999)  -  ",  SUB 

1760  PRINT  "IS  ",  SUB  ,  "  CORRECT?" 

1770  INPUT  X4 

1  78'j  Ir  X»  -  "l"  THEN  1  790  j  GOTO  1750 

1790  IF  SUB  <  0  OR  SUB  >  999  THEN  1750  ;  PUT  SUB  IN  PFS 

1800  BASE  =  VAL ( SUBN04 1 3 , 4 )  1  ;  PUT  BASE  IN  PFB 

1810  HEAD  =  ASCiSUBNOXl  )  i  J  IF  HEAD  =  4;  THEN  1820  ;  PUT  2.0  IN  F'FH  ;  GOTO  1830 
1  *20  FUT  2CC  In  F  r 
1830  FOR  S  =  1  TO  i! 

1840  A»  =  1Xb,S;  J  BflEPI-.S)  =  ASC(Ai)  ;  NEXT  S 
1850  XEQ  DUF: 

1860  PRINT  ;  INPUT  "COLLECT  EVOKED  POTENTIAL  DATA  NOU  -  ",  X4 
1870  IF  Xi  -  "Y1  THEN  IBoO  IF  Xi  -  THEN  1390  )  60 10  1360 
1880  RUN  EF  DATA 

1890  PRINT  ;  INPUT  "RUN  ANOTHER  PROGRAM  -  ",  X4 

1900  IF  XI  =  "Y"  THEN  1910  J  IF  X4  =  "N"  THEN  2090  ;  GOTO  1890 

1910  RUN  EPPROG 

1920  STOP 

1930  FOR  S  *  U  TO  U  ♦  (P  -  1) 

1940  Y4(S,S)  = 

1950  NEXT  S 

1961  RETURN  ;  STOP 

1970  INPUT  "CORRECT  'INPUT  A-  VALUE  -  ",  INAiil) 

1980  XX4 ( 1  )  =  INAiil)  ;  G03UB  20o0 
1990  IF  XXI)  =  "Y"  THEN  2000  ;  GOTO  1970 
2000  Y4  ( N1 '  1  ),N2'D)  =  INAiil) 

2010  INPUT  "CORRECT  'INPUT  B'  VALUE  -  ", 


INBIU  ) 


LIST  PERBU 

* 

S  REM  DIMENSION  VARIABLES. 

10  DIM  RCHK 1 )  ,Y!<225) , BLANK! (60) ,XXK60)  ,XK  1 ) ,CH! (2 ) , NAME* (35) ,C0MNTK60 ) 

20  DIM  SUBNOK5),DATEK9),GFORCK6),RUNNOK7),TINBA!(6),AIRTPK6),SUBTP!(5) 

30  DIM  HEART!<4>,FROH!(5),FRQH1!<5),FRON2!(5),FROH3!(5),FRQN4!(5),FROM5!(5) 

40  DIM  FR0«4*(5),FR0M7!(5),FR0M8K5),T0K5),TQ1!<5),TQ2!(5),TO3K5>,T04!<5} 

SO  DIN  T05!(5),T06K5>,T07!(5),T08K5) 

SS  REM  ASS16N  VALUES  TO  SOME  VARIABLES. 

oo  n i ( i >  =  o  ;  N2( i )  =  0  ;  N3( i )  =  o  ;  N4(i)  =  o  ;  u  *  i  ;  y*  =  "  " 

70  BLANK!  *  " 

75  REM  FOR  THE  FOLLOUING  VARIABLES  USER  INPUTS  THEIR  VALUES  FOR  THIS  EXPERIMENT 

76  REM  A  VISUAL  CHECK  ON  THE  VALUE  IS  PROVIDED.  AFTER  THE  CORRECT  VALUE  HAS 

77  REM  BEEN  ENTERED  THE  VARIABLE  IS  STORED  IN  THE  PERSONAL  DATA  FILE  IN  ITS 

78  REN  CORRECT  LOCATION,  REPRESENTED  BY  'U'.  THIS  LOCATION  IS  INCREASED  BY  THE 

79  REM  SIZE  OF  THE  VAR  UNDER  CONSIDERATION  ,  AND  PROG  ADVANCES  TO  NEXT  VAR. 

80  PRINT  ;  PRINT  "INPUT  NAME  AS  FOLLOUS." 

93  P  =  35  ;  GOSUB  1930 

100  INPUT  "LAST,  FIRST,  THEN  M.I.  -  ",  NAME! < 1 ) 

110  XX! (1 )  =  NAME! < 1 )  ;  GOSUB  2060 

120  IF  X!(  1 )  =  "Y"  THEN  130  ;  IF  X!  =  "8”  THEN  140  {  GOTO  100 

130  YKU)  =  BLANK ! ( 1 )  ;  YKU)  =  NAME! ( 1  ) 

140  u  =  U4P;p»5;  gosub  i?30 

150  PRINT  ;  PRINT  "H  *  HUMAN  SUBJECT  R  =  RHESUS  SUBJECT" 

HO  INPUT  "SUBJECT'S  I.D.  NUMBER  -  ",  SUBNO! ( 1 ) 

170  XX! ( 1 )  =  SUBNO! ( 1 )  ;  GOSUB  2060 

180  IF  X!(1 )  »  "Y"  THEN  190  ;  IF  XK1)  =  THEN  200  ;  GOTO  150 
190  Y!(U)  =  BLANK! ( 1 )  ;  YKU)  *  SUBN0!<1) 

200  U=u+p;p=9;  GOSUB  1930 
210  INPUT  "MON/DAY/YEAR  -  ",  DATE!( 1 ) 

220  XX! < 1 )  =  DATE! ( 1 )  ;  GOSUB  2060 

230  IF  X!( 1 )  =  *Y”  THEN  240  ;  IF  X! ( 1 )  =  “N"  THEN  250  ;  GOTO  210 

240  Y!(U>  =  BLANK! 1 1  »  ;  YKU)  =  DATE!(  1 ) 

250  U  a  u  ♦  P  ,*  P  =  6  }  GOSUB  1930 

260  PRINT JPRINT  "IF  G-FORCE  IS  BELOU  10  ENTER  THE  N  UITH  A  0  FIRST  (I.E.  03G-Y)" 
270  INPUT  "G-FORCE  -  ",  GFQRCK1) 

280  XX! ( 1 )  a  GFORC! ( 1 )  ;  GOSUB  2060 

290  IF  X! < 1 )  =  “Y"  THEN  300  ;  IF  X!(1)  =  "N"  THEN  340  ;  GOTO  260 

300  IF  GFORCE ! (4,4)  =  OR  GF0RC!(4,4)  =  "-"  THEN  310  ;  GOTO  260 

310  IF  GF0RC!(5,5)  =  "X"  OR  6F0RC!<5,5)  *  "Y"  OR  GF0RC!<5,5)  =  ”Z”  THEN  330 

320  IF  6F0RCK1)  a  GFORC! ( 1  >  THEN  260 

330  YKU)  a  BLANK!  ( 1  )  ;  YKU)  a  GFORC!  ( 1  ) 

340  U  =  U  +  P  ;  P  =  7  ;  GOSUB  1930 

350  INPUT  "RUN  NUMBER  -  ",  RUNNOK 1 ) 

360  XX! ( 1 )  «  RUNNOK 1 )  ;  GOSUB  2060 

370  IF  X!(1>  »  "Y"  THEN  380  ;  IF  X!(1)  =  "N"  THEN  390  ;  GOTO  350 

380  YKU)  a  BLANK! ( 1 )  ;  YKU)  a  RUNNOK  1) 

390  U  «  U  ♦  P  5  P  a  6  ;  GOSUB  1930 

400  INPUT  "TIME-OF-DAY  ON  A  24  HOUR  CLOCK  (I.E.  14:33)  -  ”, 

410  XX!< 1 )  a  T I HD A! < 1 )  ;  GOSUB  2060 


TIMDAK1) 


420  IF  XK1)  =  "Y"  THEN  430  ;  IF  XK  1 )  =  THEN  440  ;  GOTO  400 
430  YKU)  =  BLANK* (1 )  ;  YKU)  =  TIMBA* ( 1 ) 

440  U  =  U  +  P;P=5;  GOSUB  1930 

450  INPUT  "AIK  TEMPERATURE  (IN  F)  -  ",  AIR7PK1) 

460  XX«(1)  =  AIRTPK 1 )  ;  GOSUB  2060 

470  IF  X*(U  =  “Y"  THEN  480  ;  IF  X*(1)  =  "«"  THEN  500  ;  GOTO  450 
475  REM  CHECK  VALUE  OF  AIR  TEMPERATURE. 

480  IF  AIRTPK  1)  <  "69"  OR  AIRTPK  1 )  >  "81"  THEN  450 
490  YKU)  =  BLANKK 1 )  ;  Yt(U)  =  AIRTP4 <  1 ) 

500  U=U+P;P=5;  GOSUB  1930 

510  INPUT  “SUBJECT'S  TEMPERATURE  (IN  F)  -  ",  SUBTPK1) 

520  XXK 1 )  =  SUBTPK  t )  ;  GOSUB  2060 

530  IF  XK1)  =  "Y"  THEN  540  ;  IF  XK1)  =  THEN  550  ;  GOTO  510 
540  YKU)  =  BLANKK  1 )  ;  Y*(U)  =  SUBTPK  1 ) 

550  U  =  U  +  P  ;  P  =  4  ,'  GOSUB  1930 

560  INPUT  "SUBJECT'S  HEART  RATE  (BEATS/HIN.)  -  ",  HEART* (1 ) 

57w  XX* ( 1 )  =  HEART* ( 1 >  ;  GOSUB  2060 

580  IF  XK1)  =  "Y"  THEN  590  ;  IF  X*(1)  =  THEN  600  ;  GOTO  560 

590  YKU)  =  BLANK* ( 1 )  ;  Y*(U)  *  HEART* ( 1  > 

600  U  =  U  ♦  P  ;  P  =  60  ;  GOSUB  1930 

610  INPUT  "PRINT  COMMENTS  (USE  LESS  THAN  60  CHARACTERS)  -  ",  C0MNTK1) 
620  XXK1)  =  C0MNTK1)  ;  GOSUB  2060 

630  IF  X*(1)  =  "Y"  THEN  640  ;  IF  X*(1)  =  "ti"  THEN  650  ;  GOTO  610 
640  Y* ( U )  =  BLANK* ( 1 )  ;  Y« ( U )  =  C0MNT*(1) 

650  U=IMF;P=2;  GOSUB  1930 

660  INPUT  "NUMBER  OF  CHANNELS  BEING  RECORDED  <1  -  8)  -  ",  CHK 1 ) 

670  XXK1)  -  CH*  ( 1 )  ;  GOSUB  2060 

680  IF  XK1)  =  "t"  THEN  690  ;  IF  XK 1 )  *  THEN  710  ;  GOTO  660 

685  REM  CHECK  VALUE  OF  THE  NUMBER  OF  CHANNELS. 

690  IF  CHK  1 )  <  "1"  OR  CH*  ( 1 )  .>  "8"  THEN  660 
700  YKU)  *  BLANKK  1 )  ;  YKU)  =  CHK1) 

710  U  =  U  +  P 

715  REM  INPUT  A  CHANNELS  MONTAGE  FOR  THE  EXPERIMENT. 

720  IF  CH* ( 1 )  =  "1"  Then  1360  ;  IF  CHK  I )  =  "2"  THEN  1290 

730  IF  CH* ( 1 )  =  "3"  THEN  1200  )  IF  CHK1)  =  "4"  THEN  1110 

740  IF  CHK  1 )  =  "5"  THEN  1020  ;  IF  CHK  1  >  =  "6"  THEN  930 

750  IF  CH*  1 1 )  ^  "7"  THEN  840 

760  P  =  5  ;  GOSUB  1930 

770  PRINT  "INPUT  MONTAGE  FOR  CHANNEL  8" 

780  INPUT  "  INPUT  A  -  ",  FR0N8K  U 
790  YKU)  =  BLANK* ( 1 )  ;  YKU)  *  FR0M8K1) 

800  U  =  U  ♦  P  ;  P  =  5  *,  GOSUP  1930 

810  INPUT  "  INPUT  B  -  ",  T08K1) 

820  YKU)  =  BLANK* <  1 )  ;  YKU)  =  T08K1) 

830  U  *  U  +  P  ;  6OT0  850 

840  P  =  10  ;  GOSUB  1930  ;  U  =  U  ■»  P 

850  PRINT  "INPUT  MONTAGE  FOR  CHANNEL  7" 

860  P  =  5  ;  GOSUB  1930 

870  INPUT  "  INPUT  A  -  ",  FRQM7K1) 

880  YKU)  =  BLANK* <  1 )  ;  Y*(U)  =  FR0M7K  1  > 

890  U=U+P:P*5:  GOSUB  1930 


900  INPUT  '*  INPUT  B  -  ",  T07*<1) 

910  Y*(U)  =  BLANK* <  1 )  ;  Y*<U>  =  TQ7*<1) 

920  U  *  U  ♦  P  ;  GOTO  940 

930  P  ■  20  ;  GOSUB  1930  ;  U  =  U  +  P 

940  PRINT  "INPUT  MONTAGE  FOR  CHANNEL  6" 

950  P  =  5  ;  GOSUB  1930 

960  INPUT  ■  INPUT  A  -  ",  FRGM6*<1) 

970  Yt(U)  =  BLANK*  <1 )  ;  Y*<U)  =  FR0M6*<1> 
980  U  =  W  ♦  P  ;  P  *  5  ;  GOSUB  1930 

990  INPUT  "  INPUT  B  -  ",  T06*<1) 

1000  Y*(U)  =  BLANK* ( 1 )  ;  Y*(U)  =  TQ6*U) 

1010  U  =  U  ♦  P  ;  GOTO  1030 

1020  P  =  30  ;  GOSUB  1930  ;  U  =  U  ♦  P 

1030  PRINT  "INPUT  MONTAGE  FOR  CHANNEL  5" 

1040  P  =  5  ;  GOSUB  1930 

1050  INPUT  "  INPUT  A  -  ",  FR0M5*<1) 

106.’  Y*U)  =  BLANK*(1)  ;  Y*(U)  *  FR0H5*< 1 ) 
1070  U=U+F;P=5;  GOSUB  1930 
1080  INPUT  "  INPUT  B  -  ",  T05t(1> 

1090  Y*(U)  =  BLANK* il)  ,*  Y$<U)  =  T05»(1) 

1100  U  =  U  +  P  ;  GOTO  1120 

1110  P  =  40  ;  GOSUB  1930  ;  U  =  U  +  P 

1120  PRINT  "INPUT  MONTAGE  FOR  CHANNEL  4" 

1130  P  =  5  ;  GOSUB  1930 

1140  INPUT  "  INPUT  A  -  ",  F0RH4*(1) 

1150  Y*(U)  =  BLANK* (1 )  ;  Y*(U)  =  FR0N4*<1) 

1160  U  =  U  +  P  ;  P  =  5  ;  GOSUB  1930 

1170  INPUT  "  INPUT  B  -  ",  T04*(1) 

1180  Y*(U)  =  BLANK* <1 ;  ;  Y*(U)  =  T04*U) 

1190  U  =  U  ♦  P  ;  GOTO  1210 

1200  P  =  50  ;  GOSUB  1930  J  U  =  U  +  P 

1210  PRINT  "INPUT  MONTAGE  FOR  CHANNEL  3" 

1220  P  =  5  J  GOSUB  1930 

1230  INPUT  "  INPUT  A  -  ",  FR0N3*<1) 

1240  Y*(U)  =  BLANK* (1 )  ;  Y*(U)  =  FR0M3* ( 1 ) 

1250  U  =  U  +  P  ;  P  =  5  ;  GOSUB  1930 

1260  INPUT  "  INPUT  B  -  ",  T03*(1) 

1270  Y * ( U )  -  BLANK* ( 1 )  ;  Y*(U)  =  T03*(1) 

1280  U  =  U  +  P  ;  GOTO  1300 

1290  P  =  60  ;  GOSUB  1930 

1300  PRINT  "INPUT  MONTAGE  FOR  CHANNEL  2" 

1310  P  =  5  ;  60SUB  1930 

1320  INPUT  "  INPUT  A  -  ",  FR0M2*(1) 

1330  Y* < U )  *  BLANK* (1 )  ;  Y*UI)  =  FR0M2*(1) 
1340  U=U+P;P=5;  GOSUB  1930 
1350  INPUT  "  INPUT  B  -  ",  T02* < 1 ) 

1360  Y*(U)  *  BLANK* (U  ;  Y*iU)  *  T02* ( i  > 
1370  U  *  U  ♦  P  ;  GOTO  1390 
1380  P  =  70  ;  GOSUB  1930  ;  U  =  U  +  P 
1390  PRINT  "INPUT  MONTAGE  FOR  CHANNEL  1" 
1400  P  =  5  ;  GOSUB  1930 
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1410  INPUT  "  INPUT  A  -  %  FORHUM) 

1420  YI(U)  =  BLANK* ( 1 )  ;  Y*(U)  =  FR0N1*(1) 

1430  U  =.  U  +  P;P  =  5;  GOSUB  1930 
1440  INPUT  "  INPUT  B  -  ",  T01*d> 

1450  Yi(U)  -  BLANK* ( 1 )  ;  YI(U)  =  T01*(1) 

1460  U*U+P;P=5;  GOSUB  1930 

1465  REN  PRINT  OUT  THE  MONTAGE  INFORMATION  FOR  ALL  CHANNELS. 

1470  PRINT  ;  PRINT  "  CH.  "INPUT  A",  "INPUT  B" 

1480  SS(1)  *  225 

1490  FOR  I  =  1  TO  8 

1500  SS(1>  =  SSd)  -  10 

1510  PRINT  I  IN  4,4  ,  Y*(SS<1 )  ,SSd  )+4) ,  Y*(SSd  H5,SS<1  )+9) 

1520  NEXT  I 

1525  REM  ENABLES  USER  TO  CHANGE  A  MONTAGES  VALUE. 

1530  PRINT  ;  INPUT  "ARE  THE  ABOVE  MONTAGES  CORRECT  -  ",  X* 

154<  IF  X*  =  "Y"  THEN  1720  ;  IF  X*  *  "N"  THEN  1550  ;  GOTO  1530 

1545  REM  USER  SELECTS  CHANNEL  UITH  ERRORS  IN  ITS  MONTAGE  VALUES. 
1550  INPUT  “UH1CH  CHANNEL  IS  INCORRECT  -  ",  RCH*(1) 

1560  PRINT  "IS  ",  RCHI d ) ,  "  CORRECT?" 

1570  INPUT  X*(1) 

1580  IF  X*(1)  =  "Y"  THEN  1590  ;  GOTO  1550 

1585  REM  REPLACEMENT  OF  THE  BAD  MONTAGES  UITH  THE  CORRECT  VALUE. 
1590  IF  RCHK1 )  =  "1"  THEN  1640  J  IF  RCH*  <  1 )  =  "2"  THEN  1650 

1600  IF  RCH* ( 1 )  =  "3"  THEN  1660  ;  IF  RCH*d  )  =  "4"  THEN  1670 

1610  IF  RCH*(1 )  =  "5"  THEN  1680  ,*  IF  RCH*d>  =  "6"  THEN  1690 

1620  IF  RCH*d )  =  "7"  THEN  1700  ;  IF  RCH* 1 1 )  *  "8"  THEN  1710 

1630  IF  RCH*(1)  =  RCH* ( 1 )  THEN  1550 


1640 

NUD-215 

N2( 1  )s21 9 

• 

f 

N3< 1 )=220 

}  N4  < 1 ) — 224 

9 

GOSUB 

1970 

• 

9 

GOTO 

1470 

1650 

N1 ( 1 ) =205 

N2<1)=209 

• 

9 

N3<1  )=210 

;  N4( 1 ) -2 1 4 

• 

9 

GOSUB 

1970 

• 

9 

GOTO 

1470 

1660 

N1 <1 ) =1 95 

N2(1 )=199 

• 

9 

N3 ( 1 )=200 

;  N4 < 1 )-204 

• 

9 

GOSUB 

1970 

• 

9 

GOTO 

1470 

1670 

N1 d ) =1 85 

N2d  )  =  189 

• 

» 

N3(1 )=1 90 

;  N4< 1 )=»94 

* 

9 

GOSUB 

1970 

• 

9 

GOTO 

1470 

1680 

N1 (1 )=1 75 

N2< 1 )=179 

9 

N3(1 >s180 

;  N4( 1 )=184 

f 

GOSUB 

1970 

» 

GOTO 

1470 

1690 

N1  ( 1  )  =  1 65 

N2d  )  =  169 

• 

9 

H3< 1  )  =  1 70 

;  N4<1)=174 

• 

9 

60SUB 

1970 

• 

9 

GOTO 

1470 

1700 

HI  ( 1 )  =  155 

N2d  )  =  1 59 

• 

f 

N3d  )  =  160 

;  N4( 1 )=164 

• 

f 

GOSUB 

1970 

■ 

9 

6OT0 

1470 

1710 

N1  (1 )  =  145 

N2d  )  =  149 

1 

N3<1 )  =  150 

;  N4<1>*154 

• 

9 

GOSUB 

1970 

• 

9 

GOTO 

1470 

1715 

REM  ENABLES 

USER  TO  STORE  THE  PERSONAL  DATA  FILE 

1720 

PRINT  ;  INPUT  "STORE 

THIS  PERSONAL 

DATA  -  ”, 

X* 

1730 

IF  X*  =  "Y 

M 

THEN  1740 

5 

IF  X*  -  "N 

"  THEN  1890 

9 

GOTO 

1720 

1735  REM  SELECTS  DISK  DRIVE  NUMBER  2  AND  SETS  THE  START  AND  SIZE  OF  DMEM. 

1740  PUT  2  IN  PDV  ;  PUT  0  IN  PST  ;  PUT  1024  IN  PSZ 

1750  PRINT  *,  INPUT  "INPUT  FILE  SUBSCRIPT  13  M'S  0  -  999)  -  ",  S 

1760  PRINT  "IS  ",  S,  “  CORRECT?" 

1770  INPUT  X* 

1780  IF  X*  =  ”Y"  THEN  1790  {  GOTO  1750 

1785  REN  CHECK  TO  INSURE  THAT  THE  FILE  SUBSCRIPT  IS  IN  THE  CORRECT  RANGE. 

1790  IF  S  ^  0  OR  S  >  999  THEN  1750  ;  PUT  S  lw  PFS 
1795  REM  SELECTION  OF  THE  FILE  BASE 
1800  BASE  =  VAL (SUBNO* (3,4))  ;  PUT  BASE  IN  PFB 
1805  REM  SECLECTION  OF  THE  FILE  HEADER. 

1810  HEAD  -  ASC<SUBNO<< 1 ) )  ;  IF  HEAD  -  40  THEN  1820  ;  PUT  210  IN  PFH  ;  GOTO  1 
1820  PUT  200  IN  PFH 


1625  REM  CHARGE  NORMAL  DATA  INTO  ASCII  CODE. 

1830  FOR  I  -  1  TO  U 

1840  A*  =  Y»(I,I)  ;  DNEM(I)  *  ASC<A«)  ;  NEXT  I 
1845  REM  WRITE  FILE  ON  DISK. 

1850  XEQ  DUR 

1855  REN  ENABLES  USER  TO  GO  DIRECTLY  TO  THE  PROGRAM  WHICH  COLLECTS  E.P.  DATA 
1860  PRINT  ;  INPUT  "COLLECT  EVOKED  POTENTIAL  DATA  NOU  -  ",  X* 

1870  IF  X«  =  "Y"  THEN  1880  ,*  IF  X*  =  MN"  THEN  1890  ,*  GOTO  1860 
1880  RUN  EPDATA 

1885  REM  ENABLES  USER  TO  RETURN  TO  THE  POINTER  PROG.  AND  RUN  ANOTHER  PROGRAM 

1890  PRINT  ;  INPUT  “RUN  ANOTHER  PROGRAM  -  XI 

1900  IF  X*  =  "Y"  THEN  1910  ;  IF  X»  =  "N"  THEN  2090  ;  GOTO  1890 

1910  RUN  EPPROG 

1915  REM  STOP  THE  F0LL0U1NG  ARE  SUBROUTINES. 

1920  STOP 

1925  REM  PLACES  A  NULL  FACTOR  IN  A  VARIABLE'S  LOCATION. 

1930  FOR  S  =  U  TO  U  ♦  (P  -  1) 

1940  Y$(S,S)  =  "N“ 

1950  NEXT  S 
1960  RETURN  ;  STOP 

1965  REM  ENABLES  USER  TO  CHANGE  A  CHANNEL'S  MONTAGE  VALUE. 

1970  INPUT  “CORRECT  'INPUT  A'  MONTAGE  -  ",  FR0N4M) 

1980  XXt<1>  -  FR0M«(1)  ;  GOSUB  2060 
1990  IF  X$<1)  =  "Y"  THEN  2000  ;  GOTO  1970 
2000  Y*(N1 ( 1 ) , N2( 1 ) )  =  FRQM*<1) 

2v10  INPUT  "CORRECT  INPUT  B'  MONTAGE  -  ",  TQ*(1> 

2020  XX»(1)  =  T0*(1)  ;  GOSUB  2060 

2030  IF  X*(1)  =  "Y"  THEN  2040  ;  GOTO  2010 

2040  Yt (N3( 1 )  ,N4( 1 > )  =  TO* ( 1 ) 

2050  RETURN  ;  STOP 

2055  REN  ENABLES  USER  TO  RESPOND  TO  A  VISUAL  CHECK  ON  A  VARIABLES  VALUE. 

2060  PRINT  "IS  ",  XXIU),  "  CORRECT?" 

2070  INPUT  X* 1 1 ) 

2080  RETURN  ;  STOP 

2085  REM  END  OF  THE  PROGRAn 

2090  END 


LIST  EPDATA 
% 


10 
20 
30 
40 
50 
60 
70 
SO 
90 
ICO 
110 
120 
13' 
140 
150 
160 
170 
1  £0 
190 
200 
210 
220 
230 
24! 
250 
260 
270 

2  SO 
290 
300 
310 
320 

3  2  0 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 


PUT  0  IN  PST  ;  PUT  8192  IN  PSZ  ;  XEQ  ZEN 

DIN  DELAYS (3) ,  STSEC*(3>,  SwfS2S(?>,  SUPS* 05  • ,  CHS* < 2 > ,  STMEnSC),  URISIK6) 
DIM  SZfiEMliS)  ,  DWELLS (5 j ,  STFERS<6>  ,  REPT3S»5),  Y * < 70 J  ,  AS (70) 

DIM  LBANDS(A),  HBANDS(5),  SENTYS (5) ,  STINTS (5),  THRESK4),  SUBN0S(5),  VALS(7) 
DIM  LLEUDS15)  ,  X* 1 1  >  *,  N1(1)  =  0  ]  H2(1)  =  0 
U  =  1  ;  SUPSZ(I)  -  0  ;  GOTO  70 
SUBNOSd  )  =  " 

PRINT  ;  INPUT  "INPUT  THE  SUBJECT  "3  I.D.  NUMBER  -  ",  SUBNOSd) 

PRINT  "IS  ",  SUBNOSd),  "  CORRECT?" 

INPUT  XS 

IF  XS  -  "V  THEN  120  ;  IF  XS  =  XS  THEN  70 
BASEd  )  =  VAL ( SUBNOS (3,4)) 

SUB  ‘  1  .<  -  0 

PRINT  ;  INPUT  "THE  FILE  SUBSCRIPT  IS  <3  ITS  0  -  999)  -  ",  SUBd ) 

PRINT  "IS  ",  SUBd),  "  CORRECT?" 

INPUT  XS 

IF  XS  =  Ht"  THEN  180  ;  IF  XS  =  XS  THEN  130 
IF  SUBd)  \  0  OR  SUBd)  7  9?5  THEN  130 
SSUBd  )  *  SUBd) 

PUT  0  IN  Pin 

PRINT  ;  INPUT  "STIMULATING  THE  RIGHT  OR  LEFT  WRIST  f  -  ”,  WRISTS d) 

YS(U)  =  WRISTS ( 1 )  ;  P  =  6  ;  W  =  U  +  P 

PRINT  ;  INF- J :  "UHAT  IS  The  STIMULUS  DELAY  TIME  (IN  MS)?  -  ",  DELAY  .  I ) 

DELAYS  :i  .  =  S*::1  ( DELAY  ( 1 5 )  ;  U  *:  =  DELAYS ;  ’ )  ;  P  -  3  ;  L  -  2  -  P 

PRINT  ;  PRINT  "USER  CANNOT  REQUEST  MORE  THAN  13  STIMULI  PER  SECOND." 

INPUT  "NUMBER  OF  STIMULI  PER  SECOND  -  ",  STSEC(I) 

IF  STStCd )  .  1  OR  STSEC(I)  >  13  THEN  250 

STSECS ( 1 )  =  STRS (STSEC (1)1  ;  YS(U)  =  STSECSdl  ;  P  =  3  ;  U  =  U  +  P 
STPERd)  =  1/STSEC(1)  ;  REPTSd )  =  STPERd )  *  1000 
REPTSS  ( 1 :  *  STRS  (REPTSd  ) )  ;  YS  (U 1  -  REfTSSC)  ;  p  «  5  ;  W  •  U  +  f 

PRINT  ;  INPUT  "MINIMUM  LENGTH  OF  THE  SUEEP  (IN  Mi)  -  ",  SUPSZd) 

GOSUB  1510 

STMEMSd)  =  "0"  ;  Yf(U:  *  STNENS d 5  ;  P  =  2  ;  U  =  L  *  P 

YStU)  =  SZMEMS ( 1 )  ;  P  *  5  ;  U  *  M  +  P  ;  YS(U)  *  LLEUDSCi)  ;  P  =  4 

u  =  u  +  f;y*vW)  =  suPSZSd ;  ;p  =  7;w-utp 

GOSUB  1620 

PUT  2" 12  IN  LDL 

PRINT 

INPUI  "UHA I  IS  THE  SUBJECT'S  THRESHOLD  < IN  ttiLLlAfiPSj?  -  ",  THRESi 1 1 > 

YS(W)  *  THRESSd )  ;P  =  4;U  =  U  +  P;  PRINT 

INPUT  "UHAT  IS  THE  STIMULUS  INTENSITY  (IN  MILLIAMPSi?  -  ",  STINTSd) 

YS(U)  =  STINTSd  )  ;  p  =  5  ;  U  =  U  +  P 

PRINT  ;  INPUT  "INPUT  THE  SENSITIVITY  -  ",  SENTYd) 

IF  SENTYd)  =  1.25  OR  SENTY ( 1 )  =  2.5  OR  SENTYd)  =  5  THEN  480 
IF  SENTYd)  =  12.5  OR  SENTYd)  =  25  OR  SENTYd)  =  50  THEN  480 
IF  SENTYd)  =  125  OR  SENTYd)  =  250  OR  SENTYd)  =  500  THEN  480 
GOTO  430 

SENTYSd)  *  SIRS  (SENT  id))  ;  YKUl  =  SENTYSid  ;  P  *  5  }  U  =  U  ♦  P 
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490  PRINT  ;  INPUT  "INPUT  THE  LOU  BANDPASS  LBANDd) 

500  IF  LBANDd)  =  1  OR  LBANDd)  =  5  OR  LBANDd)  =  30  THEN  530 
5 1 0  IF  LBANDd)  =  150  OF,  LBANDd)  =  300  THEN  530 
520  GOTO  490 

530  LBANDtd)  =  SIR*  (LBANDd ) )  ;  YliUi  =  LBAND*  ( 1 )  ;P-4;U=U  +  P 
540  PRINT  ;  INPUT  "INPUT  THE  HIGH  BANDPASS  -  ",  HBANDd  > 

550  IF  HBANDd)  =  30  OR  HBAND (  1 )  =  IOC  OR  HBANDd)  =  250  THEN  580 

560  IF  HBAND(I)  =  1500  OR  HBAND(I)  =  3000  OR  HBAND ( 1 )  =  8000  THEN  580 

570  GOTO  540 

580  HBANDtd)  =  STR*  (HBANDd  ));  Y«(«)  =  HBAND*d>;  P  *  5  ;  U  =  U  ♦  F 
590  PRINT  ;  INPUT  "NUMBER  OF  SWEEPS  TO  BE  COLLECTED  -  ",  SUPSd) 

600  SUFStd )  =  STR«l5UPS(1  J)  J  YKW)  =  SWPSidJ  J  F  ®  5  ;  It  s  M  ♦  P 
610  PUT  SUPS ( 1 )  IN  PSU  ;  GET  SUPSd)  FROM  GSU 

620  PRINT  ;  PRINT  "USER  CAN  REQUEST  1,  2,  4,  OR  8  CHANNELS  TO  BE  RECORDED." 

630  INPUT  "NUMBER  OF  CHANNELS  COLLECTED?  -  ",  CHS(I) 

640  IF  CHSd)  <  1  OR  CHSd)  >  8  THEN  620 

65.’  IF  CHS <  1 )  =  3  OR  CHSd)  =  5  OR  CHSd)  =  6  OR  CHSd)  =  7  THEN  620 

660  PUT  CHSd)  IN  PIN  J  GET  CHSd)  FROM  GIN  ;  CHS*(1)  *  STR*(CHSd)) 

670  Y $  <  Lt )  -  CHSldt  ;  =  2  ;  U  =  U  +  P  ;  GOTO  680 

680  PRINT  ;  INPUT  "DO  YOU  NEED  A  LISTING  OF  THE  PARAMETERS  -  ",  XI 

690  IF  X*  =  "Y"  THEN  700  ;  IF  X*  =  "N"  THEN  850  ;  IF  X*  =  X*  THEN  680 

700  PRINT;  PRINT  "1.  URIST  STIMULATION  -  ",  URISHd) 

710  PRINT  "2.  SUBJECTS  THRESHOLD  -  ",  THRE3*d) 

720  PRINT  "3.  STIMULUS  INTENSITY  -  ",  STINT* d ) 

730  PRINT  ;  PRINT  "4.  STIMULUS  DELAY  TIME  -  ",  DELAY* (1 ) 

740  PRINT  "5.  STIMULUS  PER  SECOND  -  ",  STSEC*(1> 

750  PRINT  "6.  LENGTH  OF  SWEEP  -  ",  SUPSZ»d) 

76:  PRH.T  "  .  1; L £ i_ l  TIME  -  ",  LLEwDI  ( 1 ) 

770  PRINT  "6.  STIMULUS  PERIOD  -  ",  REF'TSI  (  T ) 

760  PRINT  ;  P  =  i t-- :  NUMBER  OF  SWEEPS  -  ”,  SUPS*d) 

790  PRINT  '10.  NUMBER  OF  CHANNELS  •*  ",  CHS* d ) 

800  PRINT  "11.  START  CF  MEMORY  -  ",  STMEM* d ) 

810  PRINT  "12.  SUE  OF  MEMORY  -  ",  SZMEM*d ) 

820  PRINT  ;  PRINT  "13.  AMPLIFIER/FILTER  SENSITIVITY  -  ",  SENT Y * v 1 ) 

830  PRINT  ”14.  AMPLIFIER/FILTER  LOW  BANDPASS  -  ”,  LBAND* ( 1 ) 

840  PRINT  "15.  AMPiIFIER/FILTEft  HIGH  BANDPASS  -  ",  HBAND*! 1 ) 

850  PRINT 

860  INPUT  "ARE  ANY  OF  THE  ABOVE  PARAMETER  VALUES  INCORRECT  -  ",  X* 

870  IF  X*  =  Y"  IritN  880  ;  IF  XI  =  "N"  THEN  1200  ;  GOTO  850 

880  PRINT  ;  INPUT  "GIVE  THE  N  OF  THE  PARAMETER  TO  BE  CHANGED  -  ",  NOd) 

890  PRINT  "IS  ",  NOd;,  "  CORRECT’" 

900  INPUT  X* 

910  IF  X*  =  "V"  THEN  920  ;  IF  X*  =  X*  THEN  880 

920  IF  NOd)  =  1  THEN  990  ;  IF  NOd)  =  2  THEN  1000  \  IF  NOd)  =  3  THEN  1010 

930  IF  NOd)  =  4  THEN  1020  J  IF  NOd)  =  5  THEN  1040  ;  IF  NOd)  =  6  THEN  1030 

940  IF  NOd)  =  7  OR  NOd)  =  8  OR  NOd'  -  II  OR  NOd)  =  12  THEN  970 

950  IF  NOd)  =  9  THEN  1130  ;  IF  NOd)  =  10  THEN  1150  ;  IF  NOd)  =  13  THEN  1170 

960  IF  NOd)  =  14  THEN  1180;  IF  NOd)  =  15  THEN  1190;  IF  NO(1)=NOd)  THEN  880 

970  PRINT  ;  PRINT  "THIS  VARIABLE  IS  NOT  UNDER  USER  CONTROl." 

980  GOTO  850 

990  NK1)  =  1  ;  N2d)  =  5  ;  GOSUB  1750  ;  URISTJd)  =  VAL*d )  ;  GOTO  680 


1000  N1  <  1)  -  36  ;  N2(  1 )  =  38  ;  GOSUB  1750  ;  THREii* ( 1 )  =  MALI < 1 )  ;  GOTO  680 

1010  HK1)  =  40  ;  N 2 ( 1 )  =  43  ;  GOSUB  1750  ;  STINTID)  =  VALID)  ;  GOTO  6 SO 

1020  HKD  =  8  ,*  N2D)  =  9  ;  GOSUB  1750  ,*  BELAY* <  1 )  =  VALID) 

1030  DELAY! 1)  =  VAL (BELAY* D  ) )  ;  GOTO  680 

1040  mm  *  ii  ;  n2<d  =  12  ;  ggsub  1750  ;  stsec*<d  =  val*d) 

1050  STSECD)  =  VAL(STSEC*i1D;  STPERD)  -  1/STSECD);  REPTSM)  =  STPERD  M 1000 
1060  HKD  =  13;  H2(  D  =  14  ;  VALID)  =  STR*(REPTS< D )  ;  GOSUB  1 790 
1070  REPTSM  1)  =  VALID)  J  GOTO  680 

1080  HKD  =  30  ;  N2(1)  =  34  \  GOSUB  1750  ;  SUPSZd)  =  VAL( VALID ) ) 

1090  GOSUB  1510 

1100  HKD  =  20  ;  N2D  )  =  24  ;  VALID)  -  SZHEfttU:  ;  GGSUB  1790 

1  1 10  HKD  -  25  ;  N2(1;  =  28  ;  VALID)  =  LLEUB* 1 1 !  ;  GGSUB  1790 

1120  HKD  =  2?  ;  H2D)  =  34  ;  VAlID)  =  SWPS2XD  J  GOSUB  1790 

1130  HKD  =  60  ;  N2DK  63  ;  GOSUB  1720  J  SUPSX1)  =  VALID) 

1140  SUPSD  KVAl(SUPSID));  PUT  SUPSD)  IN  PSU  ;  GET  SUPSD)  FROH  GSU  ;  GOTO  630 
1150  HKD  =  65  ;  H2D  )  =  65  ;  GOSUB  1750  ;  CHSK1)  =  VALID) 

116i  CHS<1KVAL<CHSI<1  PUT  CHSD  )  IN  PIN  ;  GET  CHSD)  FROM  GIN;  GOTO  680 

1170  HKD  =  46  ;  N2<  1 )  =  49  ;  GOSUB  1750  ;  SENTYK1 )  =  VALID)  ;  GOTO  660 

11 S:  HKD  =  51  ;  H2'.D  =  53  ;  GOSUB  1750  J  LBAHD1D)  *  VALID)  ;  GOTO  cSO 

D 90  HID;  =  55  ;  (tali  =  58  ;  GuSUB  1750  ;  HBANBID)  =  VALID)  ;  GOTO  680 

1200  PUT  2  IN  PDV  ;  PUT  208  IN  FFH  ;  PUT  BASED)  IN  PFB  ;  PUT  SSUB(I)  IN  PFS 

1210  FOR  S  =  1  TO  U 

1220  Al  =  YI(S,S)  ;  D«EN<S)  *  ASC<AI) 

1230  NEXT  S 
1240  XEG  BUF: 

1250  XEQ  2EM 

1260  PRINT  ;  GOSUB  1650 

1270  PRINT  ;  PRINT  “HIT  ANY  KEY  TO  START  AVERAGING  WAVEFORMS." 

1280  GET  X  FROH  AEN  ;  PRINT 

1290  XEG  AVG  ;  XEQ  BSC  ;  PUT  2  12  IN  LDL 

1333  PRINT  ;  in:-  2 :  "IiQ  1  .Cwi  WISH  TO  STORE  THESE  UAVSFQRilS?  -  ",  XI 

1310  IF  XI  =  "Y"  THEN  1320  ;  IF  )-:  =  "N"  THEN  1330  ;  IF  XI  *  X*  THEN  1300 

1320  PUT  19o  In  FFH  J  XEQ  BUR  ;  SSUBD)  -  SSUBD)  •+  1 

1330  PRINT  ;  PRINT  "BO  YOU  WANT  A  PLOT  OF  THE  UAVEFORMS  AS  THEY  APPEAR  ON  THE” 
1340  PRINT  "  SCREEN.  NOTE:  NO  PARAMETER  INFORMATION  OF:  SCALES  INCLUDED." 

1350  INPUT  XI 

1360  IF  XI  =  "Y"  THEN  1370  ;  IF  XI  *  "N"  THEN  1410  ;  IF  XI  -  XI  THEN  1330 
1370  PUT  0  IN  PPM  ;  XEQ  f'LT 

1380  PRINT  "wQUlB  luU  Lif.E  ANGiHEr.  PLOT  OF  THE  SAfiL  UAVtPuFNY  MAKE  ANl  ” 

1390  INPUT  "  CHANGES  BEFORE  KFInG  A  Y  RESPONSE.”,  X* 

1400  IF  XI  =  ”Y "  THEN  1370  ;  IF  XI  =  XI  THEN  1410 

1410  PRINT  ;  PRINT  "IF  ANY  PARAMETERS  ARE  TO  BE  CHANGED  REMEMBER  TO  URITE  A" 

1420  PKii\7  "  Ntw  PERSONAL  FIlE.1 

1430  PRINT  ;  INPUT  "BO  YOU  UISH  TO  CONTINUE  UITH  THJ5  PROGRAM  -  ",  XI 
1440  IF  XI  =  "N"  THEN  1470  ;  IF  XI  -  "Y"  THEN  1450  ;  IF  XI  =  XI  THEN  1410 

1450  PRINT  J  INPUT  "BO  YOU  NEED  TO  CHANGE  ANY  PARAMETER  VALUES?  -  ",  XI 

1460  IF  XI  =  "N“  THEN  1250  ;  IF  XI  =  "Y"  THEN  680  ;  IF  XI  =  XI  THEN  1450 

1470  PRINT  ;  INPUT  "BO  YOU  UISH  TO  CONTINUE  UITH  ANOTHER  PROGRAM?  -  ",  XI 

1460  IF  XI  =  "Y"  THEN  1490  ;  IF  XI  =  "N"  THEN  1800  ;  IF  XI  *  X*  THEN  1470 

1490  PUT  1  IN  PDV  ;  RUN  EPPROG 
1500  STOP 


1510 
1520 
1530 
1540 
1550 
1540 
1570 
1560 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1 6?i 

us: 

1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1 780 
1790 
1600 


.’7.* 


S2MEN( 1 )  =  SUPSZ(I)  /  .04  ;  FOR  S  *  1  TO  14 
IF  SZMEMd)  s  2  S  THEN  1550  ;  NEXT  S 
PRINT  ;  PRINT  "SUEEP  LENGTH  ERROR  -  TRY  ANOTHER  VALUE." 
GOTO  310 
SZMEMd)  =  2'S 
S2MEM*  < 1 )  =  STR<<SZNEN<1 )) 

IF  DUELL ( 1 )  <  40  THEN  1580 
DWELL ( 1 )  =  40 

PUT  DUELL  < 1 )  IN  PDU  ;  GET  DUELL  0 1 >  FRON 
LLEUDK 1 )  =  STR<<LLEUD<1 ) )  ;  SUPSZ(I)  = 

SUPSZtd)  =  STR<<SUPSZ<1 ))  :  RETURN 


DUELL (1)  = 
GOTO  1590 


supszh;  7  s ZNENii)  *  1000 


GDU  ;  LLEUDdi  -  DUELL ( 1 )  1  1000 
LLEUDd)  *  SZMEN(1 ) 


PRINT 
PRINT 
PRINT 
PRINT 
PUT  0 
PUT  2 
PUT  1 
PUT  2 
PUT  3 
PUT 
PUT 
XEQ 


;  PRINT 
;  PRINT 


"FIND  SUBJECT'S  THRESHOLD  AND  DETERMINE  STIMULUS  INTENSITY." 
"EXAMINE  THE  SIGNAL  AND  SET  THE  ANPLIF3ER7FILTERS" 

"  SENSITIVITY  AND  BANDPASS  UH1LE  IN  THE  O..EU  MODE." 

;  PRINT  "TYPE  Q  UHEN  READY  TO  CONTINUE." 


IN 

12 

IN 

IN 

IN 


PST 
IN  LI 

s  ii-: 

STN 
STN 
IN  CLR 
ONT 

XEQ  U1U 


PUT  SZNENd )  IN  PSZ 


PUT 

PUT 

PUT 


REPTSd) 
STPERd  ) 
DELAY  d) 


IN 

IN 

IN 


LDT 

LDT 

LDT 


212 
1  IN 
NTR 

RETURN 
VAL< ( 1 )  =  " 

PRINT  "IS  ",  VAL<<1), 
INPUT  X< 

IF  XI  =  ‘  i '  Tn£f»  1790  )  I 
Y < < N 1 (1 ) , N 2 (1 ) )  =  VAL»'1) 
END 


PRINT  :  INPUT  "INPUT  THE  CORRECT  VALUE  - 


VAL<<1 ) 


CORRECT?" 

IF  A<  -XI  Th£iv 
RETURN 


1750 


OK 
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LIST  DAT ABU 

4 

5  REH  ZERO  DATA  MEMORY 

10  PUT  0  IM  PST  ;  PUT  8192  IN  PSZ  ;  XEO  ZEM 

15  REM  DIMENSION  VARIABLES  ANj  ASS16M  VALUES  TO  SOME  VARIABLES. 

20  DIM  DELAYI<3>,  STSEC4(3>,  SUPSZK?) ,  SUPS4(5),  CHSi<2),  STMEM4<2),  URISTK6) 
30  DIM  SZMEM4(5)  ,  DUELL*(5),  STPERK6)  ,  REPTSK5) ,  Y4(70)  ,  A4(70> 

40  DIM  LBAND$<4),  HBANDt(5),  SENTYK5),  STINT4<5),  THRESK4),  SUBN04(5),  VAL4(7) 
50  DIM  LLEUD4<5>  ,  X4(1)  ;  N1(1)  =  0  ;  N2(1)  =  0 
AO  U  -  1  ;  SUPSZd)  *  0  ;  6OT0  70 
65  REN  INPUT  SUBJECT'S  I.D.  NUMBER. 

70  SUBNOId)  *  " 

80  PRINT  ;  INPUT  "INPUT  THE  SUBJECT'S  I.D.  NUMBER  -  ",  SUBN04(1) 

85  REH  VALIDATE  VALUE 

90  PRINT  "IS  ",  SUBNOid ),  "  CORRECT?" 

100  INPUT  XI 

IIP  IF  XI  «  "Y"  THEN  120  ;  IF  XI  *  X4  THEN  70 
115  REH  FIND  FILE  BASE  AND  FILE  HEADER. 

120  BASEd)  =  VAL(SUBNQ4(3,4) ) 

130  SUBd  )  =  0 

135  REH  INPUT  FILE  SUBSCRIPT 

140  PRINT  ;  INPUT  "THE  FILE  SUBSCRIPT  IS  <3  N'S  0  -  999)  -  ",  SUBd) 

145  REH  VALIDATE  VALUE 

150  PRINT  "IS  ",  SUBd),  "  CORRECT?" 

160  INPUT  XI 

170  IF  XI  *  "Y"  THEN  180  ;  IF  X4  =  X*  THEN  130 

175  REM  CHECK  TO  INSURE  THAT  SUBSCRIPT  IS  IN  THE  CORRECT  RANGE. 

180  IF  SUBd)  <  0  OR  SUBd)  >  999  THEN  130 
185  REM  SET  VARIABLE  EOUAL  TO  THE  FILE  SUBSCRIPT 
190  S SUB ( 1 )  *  SUBd) 

195  REM  SET  DELAY  TIME  TO  ZERO 
200  PUT  0  IN  PDY 

205  REM  INPUT  A  VARIABLE'S  VALUE  AND  THE  PROGRAM  UILL  PLACE  THAT  VALUE  INTO 

206  REH  ITS  PROPER  LOCATION  IN  THE  FILE. 

210  PRINT  ;  INPUT  "STIMULATING  THE  RIGHT  OR  LEFT  WRIST?  -  ",  URISTId ) 

220  Y«(U)  «  WRIST! <  I )  ;P«6;U*W*P 

230  PRINT  ;  INPUT  "UHAT  IS  THE  STIMULUS  DELAY  TIME  (IN  MS)?  -  ",  DELAY ( 1 ) 

240  DELAYId)  =  STR!(DELAY<1 ) )  ;  Y!<W)  =  DELAY!  (1 )  ;P  =  3;U  =  U  +  P 

250  PRINT  ;  PRINT  "USER  CANNOT  REQUEST  MORE  THAN  13  STIMULI  PER  SECOND." 

260  INPUT  "NUMBER  OF  STIMULI  PER  SECOND  -  ",  STSECd) 

265  REM  CHECK  TO  INSURE  THAT  STIMULI  PER  SECOND  IS  IN  THE  CORRECT  DATA  RANGE. 

270  IF  STSECd)  <  1  OR  STSECd)  >  13  THEN  250 

280  STSEC4M)  =  STRI (STSEC  ( 1 ) )  ;  Y!(U)  =  STSECId)  ;  P  *  J  ;  y  »  Id  P 

285  REH  MULTIPLY  STIMULUS  PERIOD  BY  1000  SO  IT  UILL  BE  AT  THE  SAME  DATA 

286  REH  LEVEL  AS  THE  OTHER  DATA. 

290  STPERd)  =  1/STSEC(1)  ;  REPTSd)  «  STPERd )  *  1000 

300  REFTSId  )  =  STRKREPTSd  ))  J  Y4(U)  *  REPTS4M)  ;  P  =  5  ;  U  =  W  ♦  P 

310  PRINT  ;  INPUT  "MINIMUM  LENGTH  OF  THE  SWEEP  (IN  MS)  -  ",  SUPSZd) 

320  GOSUB  1510 

325  REM  SET  START  OF  DATA  MEMORY  TO  0. 


P  -  4 


STMENK1)  *  "0"  ;  YKU)  »  STMEMK1)  ;P  =  2;U  =  U  +  P 

YKU)  =  SZMEMK 1 )  ;P«5;U*U  +  PJ  YKU)  =  LLEUDK  1 )  ;  P  =  4 

REM  TURN  STIMULUS  OFF 

U  =  U  ♦  P  ;  YKU)  *  SUPSZK1 )  ;  P  =  7  ;  U  *  U  +  P 
REM  TURN  STIMULUS  ON  TO  FIND  SUBJECT'S  THRESHOLD. 

SOSUB  1620 
PUT  2*12  IN  LDL 
PRINT 

REN  INPUT  A  VARIABLE'S  VALUE  AND  THE  PROGRAM  UILL  PLACE  THAT  VALUE  INTO 
REM  ITS  PROPER  LOCATION  IN  THE  FILE. 

INPUT  "MHAT  IS  THE  SUBJECT'S  THRESHOLD  (IN  HILLIANPS)?  -  ",  THRESK  1) 
YKU)  a  THRESK 1 )  ;P*4;U  =  U  +  PJ  PRINT 

INPUT  "WHAT  IS  THE  STIMULUS  INTENSITY  (IN  HILLIANPS)?  -  ",  ST1N7K1 ) 

YKU)  «  STINTK1)  ;P*5;U  =  U  +  P 

PRINT  ;  INPUT  "INPUT  THE  SENSITIVITY  -  *',  SENTY(I) 

REM  CHECK  THE  VALUE  OF  SENSITIVITY. 

IF  SENTY(I)  =  1.25  OR  SENTYd)  >  2.5  OR  SENTY(I)  =  5  THEN  480 
IF  SENTYd)  =  12.5  OR  SENTYd)  =  25  OR  SENTYd)  =  50  THEN  480 
IF  SENTYd)  =  125  OR  SENTYd)  =  250  OR  SENTYd)  =  500  THEN  480 
60T0  430 

SENTYK1 )  =  STRKSENTY  d ) )  ;  YKU)  =  SENTYK1)  ,*  P  *  5  ;  U  =  U  +  P 
PRINT  ;  INPUT  "INPUT  THE  LOU  BANDPASS  LBANDd  > 

REM  CHECK  THE  VALUE  OF  LOU  BANDPASS 

IF  LBANDd)  =  1  OR  LBANDd)  *  5  OR  LBANDd)  =  30  THEN  530 
IF  LBANDd)  =  150  OR  LBANDd)  =  300  THEN  530 
GOTO  490 

L  BANDS  d )  *  STRK  LBANDd  ) )  ;  YKU)  =  LBANDK1)  ;P*4;UaU  +  P 
PRINT  ;  INPUT  "INPUT  THE  HIGH  BANDPASS  -  ",  HBANDd) 

REM  CHECK  THE  VALUE  OF  HIGH  BANDPASS. 

IF  HBANDd)  »  30  OR  HBANDd)  =  100  OR  HBANDd)  =  250  THEN  580 

IF  HBANDd)  >  1500  OR  HBANDd)  *  3000  OR  HBANDd)  a  8000  THEN  580 

GOTO  540 

HBANBK1)  =  STRK  HBANDd ) ) ;  YKU)  *  HBANDK1);  P  =  5;U  =  U  +  P 
PRINT  ;  INPUT  "NUMBER  OF  SUEEPS  TO  BE  COLLECTED  -  ",  SUPSd ) 

SUPSK 1  >  a  STRKSUPSd))  ;  YKU)  »  SUPSK1)  ;P*5{U*U  +  P 
PUT  SUPSd)  IN  PSU  ;  GET  SUPSd)  FROM  GSU 

PRINT  ;  PRINT  "USER  CAN  REQUEST  1,  2,  4,  OR  8  CHANNELS  TO  BE  RECORDED." 
INPUT  "NUMBER  OF  CHANNELS  COLLECTED?  -  ",  CHSd) 

REM  CHECK  THE  RANGE  OF  THE  NUMBER  OF  CHANNELS. 

IF  CHSd)  <  1  OR  CHSd)  >  B  THEN  620 

IF  CHSd)  a  3  OR  CHSd)  a  5  or  CHS(1)  a  6  OR  CHSd)  a  7  THEN  620 

PUT  CHSd)  IN  PIN  ;  GET  CHSd)  FROM  GIN  ;  CHSK1)  =  STRKCHSd  ) ) 

YKU)  «  CHSSd)  ;  P  a  2  ;  U  =  U  +  P  ;  GOTO  680 

REM  ENABLES  USER  TO  GET  A  LISTING  OF  PARAMETERS  AND  THEIR  VALUES. 

PRINT  ;  INPUT  "DO  YOU  NEED  A  LISTING  OF  THE  PARAMETERS  -  ",  X* 

IF  X*  «  "Y"  THEN  700  ;  IF  X*  =  "N"  THEN  850  ;  IF  XI  *  X*  THEN  680 
PRINT;  PRINT  "1.  URIST  STIMULATION  -  ",  VRISTK1) 

PRINT  "2.  SUBJECTS  THRESHOLD  -  ",  THRESK 1 ) 

PRINT  "3.  STIMULUS  INTENSITY  -  ",  STINTK1) 

PRINT  ;  PRINT  "4.  STIMULUS  DELAY  TIME  -  ",  DELAY* d) 

PRINT  "5.  STIMULUS  PER  SECOND  -  ",  S7SECK1) 


•  w  <m  "  •  * 


PUT  CHSd)  IN  PIN 
YKU)  «  CHSK1 )  : 


.*•  .v 
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750  PR 1 NT  “6.  LENGTH  OF  SUEEP  -  ",  SUPSZId) 

760  PRINT  “7.  DWELL  TINE  -  ",  LLEUDK  1 ) 

770  PRINT  "8.  STIMULUS  PERIOD  -  ",  REPTSK1) 

780  PRINT  ,*  PRINT  "9.  NUMBER  OF  SHEEPS  -  ",  SUPS! ( 1 ) 

790  PRINT  "10.  NUMBER  OF  CHANNELS  -  ",  CHSK1) 

800  PRINT  "11.  START  OF  MEMORY  -  ",  STNENId) 

810  PRINT  "12.  SIZE  OF  MEMORY  -  ",  SZMErt* ( 1 ) 

820  PRINT  *,  PRINT  "13.  AMPLIFIER/FILTER  SENSITIVITY  -  ",  SENTYId ) 

830  PRINT  "14.  AMPLIFIER/FILTER  LOU  BANDPASS  -  ",  LBANDId ) 

840  PRINT  "15.  AMPLIFIER/FILTER  HIGH  BANDPASS  -  ",  HBANDId) 

850  PRINT 

8S5  REM  ENABLES  USER  TO  CHANGE  THE  VALUE  OF  A  VARIABLE. 

860  INPUT  "ARE  ANY  OF  THE  ABOVE  PARAMETER  VALUES  INCORRECT  -  " ,  XI 

870  IF  X*  *  "Y"  THEN  880  ;  IF  X*  *  "N“  THEM  1200  ;  GOTO  850 

880  PRINT  ;  INPUT  "GIVE  THE  N  OF  THE  PARAMETER  TO  BE  CHANGED  -  ",  N0<1> 

890  PRINT  "IS  ",  N0<  1 ) ,  "  CORRECT?" 

90b  INPUT  XI 

910  IF  X*  =  "Y"  THEN  920  ;  IF  X*  *  XI  THEN  880 

920  IF  NO ( 1 )  =  1  THEN  990  ;  IF  NOd)  =  2  THEN  1000  ;  IF  NOd)  =  3  THEN  1010 

930  IF  NOd)  *  4  THEN  1020  ;  IF  NOd)  =  5  THEN  1040  ;  IF  NOd)  •  6  THEN  1080 

940  IF  NOd)  *  7  OR  NOd)  *  8  OR  NOd)  -  11  OR  NOd)  *  12  THEN  970 

950  IF  NOd)  •  9  THEN  1130  ;  IF  NOd)  *  10  THEN  1150  ;  IF  NOd)  *  13  THEN  1170 

960  IF  NOd)  *  14  THEN  1180;  IF  NOd)  =  15  THEN  1190;  IF  NO<1)*NOd)  THEN  880 

970  PRINT  ;  PRINT  "THIS  VARIABLE  IS  NOT  UNDER  USER  CONTROL." 

980  GOTO  850 

990  Ntm  «  i  ;  N2m  >  5  ;  gosub  1750  ;  WRiSTid)  =  valki>  ;  goto  680 
1000  NK1)  «  36  ;  N2(  1 )  ■  38  ;  GOSUB  1750  ;  THRESId)  *  VALId)  ;  GOTO  680 

1010  Nld)  =  40  ;  N2d)  *  43  ;  GOSUB  1750  ;  STINTId)  =  VAl*(1)  J  GOTO  680 

1020  NK1)  *  8  ;  N2d)  *  9  ;  60SUB  1750  ;  DELAYtd )  -  VALId) 

1030  DELAY ( 1 )  «  VAL(DELAY*d ) )  ;  GOTO  680 

1040  Nld)  «  11  ;  N2d)  *  12  ,'  GOSUB  1750  J  STSECK1)  *  VALId) 

1050  STSECd)  =  VAL(STSEC4d  ));  STPERd  )  =  1/STSECd);  REPTSd  )  =  STF'ER  ( 1 ) :*  1 000 
1060  NK1)  «  13;  N2(1)  *  14  ;  VALId)  ■  STRKREPTSd ) )  ;  60SUB  1790 
1070  REPTSK1)  a  VALId)  ;  GOTO  680 

1080  NK1)  »  30  ;  N2(1)  =  34  ;  GOSUB  1750  J  SUPSZd)  =  VAL  (VALId ) ) 

1090  GOSUB  1510 

1100  Nld)  =  20  ;  N2d  )  =  24  ;  VALId)  =  SZMEMK1)  ;  GOSUB  1790 

1110  Nld)  =  25  ;  N 2 ( 1 )  =  28  ;  VALId)  *  LLEUDK1)  ;  60SUB  1790 

1120  NU1)  *  29  ;  N2(1 )  *  34  ;  VALId)  «  SUPSZK1)  ;  GOSUB  1790 

1130  NK1)  *  60  ;  N2d  )=  63  ;  GOSUB  1720  ;  SUPSId)  *  VALId) 

1140  SUPSd)*VAL(SUPSM1));  PUT  SUPSd)  IN  PSU  ;  GET  SUPSd)  FROM  6SU  ;  GOTO  680 
1150  NK1)  *  65  ;  N2(1 )  *  65  ;  60SUB  1750  ;  CHSK1)  *  VALId) 

1160  CHSd  >*VAL(CHSt  (1 ) ) ;  PUT  CHSd)  IN  PIN  ;  GET  CHSd)  FROM  GIN;  6OT0  680 
1170  NK1)  *  46  ;  N2d )  =  49  ;  60SUB  1750  ;  SENTYId  )  «  VALId)  ;  60TO  680 

1180  Nld)  >  51  ;  N2(1)  >  53  ;  60SUB  1750  ;  LBANDK1 )  *  VALId)  ;  GOTO  680 

1190  Nld)  *  55  ,*  N2d)  =  58  ,*  GOSUB  1750  ;  HBANDK1 )  -  VALId)  J  GOTO  680 

1195  REN  SELECT  DISK  DRIVE  •  2  AND  THE  FILENAME  FOR  THE  PARAMETER  FILE. 

1200  PUT  2  IN  PDV  ;  PUT  208  IN  PFH  ;  PUT  BASEd)  IN  PFB  ;  PUT  SSUB(I)  IN  PFS 
1205  REN  TRANSULATE  PARAMETER  DATA  FILE  INTO  ASCII  CODE. 

1210  FOR  S  *  1  TO  U 

1220  A!  *  YI(S,S)  ,*  DMEM(S)  »  ASC(AI) 


1230  NEXT  S 

123S  REN  SAVE  THE  PARAMETER  DATA  FILE  ON  DISK. 

1240  XEQ.  DUR 

1245  REM  CLEAR  MEMORY . 

1250  XEQ  ZEM 

1255  REM  TURN  STIMULUS  ON. 

1200  PRINT  ;  GOSUD  1650 

1270  PRINT  ;  PRINT  "HIT  ANY  KEY  TO  START  AVERAGING  WAVEFORMS." 

1280  GET  X  FROM  AEN  ;  PRINT 

1285  REM  AVERAGE  E.P.'S,  BASELINE  ZERO,  AND  TURN  STIMULUS  OFF. 

1290  XEQ  AVG  ;  XEQ  BSC  ;  PUT  2' 12  IN  LDL 

1295  REM  ENABLES  USER  TO  STORE  UAVEFORHS  ON  DISK. 

1300  PRINT  ;  INPUT  "DO  YOU  WISH  TO  STORE  THESE  UAVEFORHS?  -  ",  X* 

1310  IF  Xi  =  “Y"  THEN  1320  ;  IF  Xi  =  "N“  THEN  1330  ;  IF  Xi  =  Xi  THEN  1300 

1315  REM  STORE  UAVEFORHS  AND  INCRIHENT  THE  SUBSCRIPT  BY  1. 

1 32(  PUT  196  IN  PFH  ;  XEQ  DUR  ;  SSUBM)  *  SSUB(1)  +  1 
1325  REM  ENABLES  USER  TO  PLOT  EVOKED  POTENTIALS. 

1330  PRINT  ;  PRINT  "DO  YOU  UANT  A  PLOT  OF  THE  UAVEFORMS  AS  THEY  APPEAR  ON  THE" 

1340  PRINT  "  SCREEN.  NOTE:  NO  PARAMETER  INFORMATION  OR  SCALES  INCLUDED." 

1350  INPUT  X* 

1360  IF  Xi  =  "Y"  THEN  1370  J  IF  Xi  *  “N"  THEN  1410  ;  IF  Xi  *  Xi  THEN  1330 

1370  PUT  0  IN  PPM  J  XEQ  PLT 

1375  REM  ENABLES  USER  TO  GET  A  SECOND  PLOT  OF  THE  EVOKED  POTENTIALS. 

1380  PRINT  "WOULD  YOU  LIKE  ANOTHER  PLOT  OF  THE  SAME  WAVEFORM?  MAKE  ANY" 

1390  INPUT  "  CHANGES  BEFORE  TYPING  A  'Y '  RESPONSE.",  Xi 
1400  IF  Xi  =  "Y"  THEN  1370  J  IF  Xi  =  Xi  THEN  1410 

1410  PRINT  ;  PRINT  "IF  ANY  PARAMETERS  ARE  TO  BE  CHANGED  REMEMBER  TO  WRITE  A" 

1420  PRINT  "  NEW  PERSONAL  FILE." 

1425  REM  ENABLES  USER  TO  RERUN  PROGRAM . 

1430  PRINT  ;  INPUT  "DO  YOU  UISH  TO  CONTINUE  UITH  THIS  PROGRAM  -  ",  Xi 

1440  IF  Xi  =  “N"  THEN  1470  J  IF  Xi  =  "Y"  THEN  1450  ;  IF  Xi  =  Xi  THEN  1410 

1445  REM  RERUN  THE  PROGRAM  BUT  CHANGE  SOME  PARAMETER  DATA 
1450  PRINT  ;  INPUT  "DO  YOU  NEED  TO  CHANGE  ANY  PAPAMETER  VALUES?  -  ",  Xi 

1460  IF  Xi  *  "N"  THEN  1250  J  IF  Xi  =  "Y"  THEN  680  J  IF  Xi  *  Xi  THEN  1450 

1465  REM  ENABLES  USER  TO  RUN  ANOTHER  PROGRAM. 

1470  PRINT  ;  INPUT  "DO  YOU  UISH  TO  CONTINUE  UITH  ANOTHER  PROGRAM?  -  ",  Xi 

1480  IF  Xi  =  "Y"  THEN  1490  J  IF  Xi  =  "N"  THEN  1800  J  IF  Xi  =  Xi  THEN  1470 

1490  PUT  1  IN  PDV  ;  RUN  EPPROG 

1495  REM  STOP  MAIN  PROGRAM,  THE  FOLLOUING  ARE  SUBROUTINES. 

1500  STOP 

1505  REM  SUBROUTINE  TO  DETERMINE  VALUE  OF  SWEEPLENGTH,  SIZE  OF  DHEH,  AND  DUELL. 

1510  SZHEMm  *  SWPSZM)  /  .04  FOR  S  =  1  TO  14 

1515  REM  INSURES  THAT  THE  SIZE  OF  DMEM  IS  A  FACTOR  OF  2. 

1520  IF  SZNEM(I)  <  2'S  THEN  1550  ;  NEXT  S 

1530  PRINT  ;  PRINT  "SWEEP  LENGTH  ERROR  -  TRY  ANOTHER  VALUE." 

1540  GOTO  310 
1550  SZHEHM)*2*S 

1560  SZHENiM)  =  STRitSZHEMM ) )  }  DUELL  1 1 )  *  SUPSZM)  /  SZMEMM  >  *  1000 
1565  REM  IF  DUELL  IS  LESS  THAN  40  SET  DUELL  EQUAL  TO  40. 

1570  IF  DWELLM)  <  40  THEN  1580  J  GOTO  1590 
1580  DWELLM)  -  40 
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1590  PUT  BUELL ( 1 )  IN  PBU  ;  GET  DUELLd)  FROM  GDU  ;  LLEUDd)  =  OUELL(I)  /  1000 
1600  LLEUDtd )  -  STR$ (LLEUD ( 1 ) )  ;  SUPSZd)  =  LLEUD ( 1 )  *  SZMEMd) 

1610  SUPSZK1)  *  STRMSUPSZd ) )  ;  RETURN 
1615  REH  SUBROUTINE  TO  TURN  ON  STIMULUS. 

1620  PRINT  ;  PRINT  "FIND  SUBJECT'S  THRESHOLD  AND  DETERMINE  STIMULUS  INTENSITY. 
1630  PRINT  ;  PRINT  "EXAMINE  THE  SIGNAL  AND  SET  THE  AMPLIFIER/FILTER 'S11 
1640  PRINT  "  SENSITIVITY  AND  BANDPASS  UHILE  IN  THE  VIEU  NODE." 

1650  PRINT  ;  PRINT  "TYPE  0  UHEN  READY  TO  CONTINUE." 

1660  PUT  0  IN  PST  J  PUT  SZMEM(I)  IN  PSZ 
1670  PUT  2*12  IN  LDL 

1675  REM  INPUT  PARAMETERS  FOR  THE  STIMULUS  THROUGH  NIC-293. 

1680  PUT  1  IN  STN  ;  PUT  REPTSd )  IN  LDT 

1690  PUT  2  IN  STN  ;  PUT  STPERd)  IN  LDT 

1700  PUT  3  IN  STN  ;  PUT  DELAY ( 1 )  IN  LDT 

1705  REH  TURN  THE  STIMULUS  ON. 

1710  PUT  2*12  IN  CLR 
172v  PUT  1  IN  ONT 

1725  REM  SUBROUTINE  TO  CHANGE  A  VARIABLE'S  VALUE. 

1730  XEO  NTR  ;  XEQ  V1U 
1740  RETURN 

1750  VALK1)  *  "  "  ;  PRINT  ,*  INPUT  "INPUT  THE  CORRECT  VALUE  -  ",  VALK1) 

1760  PRINT  "IS  ",  VALId ),  "  CORRECT?" 

1770  INPUT  X* 

1780  IF  X«  *  "Y"  THEN  1790  ;  IF  X*  =  X4  THEN  1750 
1790  Y«(N1d),N2d))  =  VALId)  ;  RETURN 

1795  REM  END  OF  THE  PROGRAM. 

1800  END 


LIST  PLOTEP 

* 

10  DIM 
20  DIM. 
30  DIM 
40  DIM 
SO  Bt- 
60  Ef- 
70  J*= 

SO  GAI 
90  Ut 
100  C44 

110  X(1 
120  PUT 
130  PRI 
140  PRIi 
15i  INPi 
140  IF 
170  BAS 
180  PRI 
190  PRI 
200  INP 
210  IF 
220  IF 
230  IF 
240  PUT 
250  PUT 
260  XEQ 
270  FOR 
280  U  = 
290  PUT 
300  FOR 
310  UU 
320  HS( 
330  PRI 
340  PRI 
350  INP 
360  IF 
370  VR(1) 
380  INP 
390  PRI 
400  INP 
410  IF 
420  XEQ 
430  SUB 
440  NOF 
450  IF 
460  IF 
470  IF 
480  IF 


DIM  AK9),BK6),CK6),DK16),EK17),FK30),6K10),HK7),IK20),JK16),KK20) 
DIM  LK 18)  ,HK  1 )  ,0K  1 ) ,WK  18)  ,CHK5) ,  VK225)  ,C1  K5 ) ,  C2K5)  ,C3K5 )  ,C4K5 ) 

DIM  C5t(5) ,  C6K5),  C7K5),  C8K5),  T»<66),  SUBN0K4),  SUB t 3 ) ,  GAK11) 

DIM  6AINK6) ,N0* (15),FHK10),SUBK4) ,N0FK7)  ;  Y*="  " ; " ;A*="G-FQRCE :  " 
B**"DATE:  ";C$="NAME:  ";D*="SUBJECT  NUMBER:  ";G*="(1N  MSEC. )“;H*=“(IN  UV)" 
E*s"SL£D  RUN  NUMBER:  “ ;Fi="SOMATQSENSORY  EVOKED  POTENTIAL" ;IK"DELAY  TIME:  " 
J*="STIMUl I /SECOND:  ";KK"DWELL  TIME  <IN  US):  ";Li="SWEEP  LENGTH:  ";NK"-" 
GA*="PLOT  GAIN:  " ;N04s"NUMBER  SWEEPS:  "  ;FNM"FILENAHE:  ";M=-.3;C=-.9;CHm=0 
Wt  *  “WRIST  STIMULATED:  Cl*  =  “CH.NI"  ;  C24  =  HCH.N2“  ;  C3*  =  "CH.»3n 

C4>  =  "CM. #4"  ;  C5*  =  "CH.N5"  ;  C6$  =  “CH.N6"  ;  C7»  =  ;  C8*  =  "CH.N8 

X(i)  =  o  ;  D<i>  =  o  ;  n i < i )  *  o  ;  N2(i)  =  o  ;  N3(i)  =  o  ;  N4<n  =  o 
PUT  0  IN  PST  ;  PUT  1024  IN  PSZ  ;  PUT  2  IN  PDV 
PRINT  ;  INPUT  “INPUT  THE  SUBJECT'S  I.D.  NUMBER  -  SUBNOX 1 ) 

PRINT  “IS  SUBN0K1 ) ,  “  CORRECT?" 

INPUT  X» 

IF  X*  =  “Y"  THEN  170  ;  GOTO  130 

BASE(1)  =  VAL < SUBNOI (3,4))  ;  HEAD < 1 )  =  ASC < SUBNO* ( 1 ) ) 

PRINT  ;  INPUT  "INPUT  THE  SUBSCRIPT  NUMBER  (3  N'S  0  -  999)?  -  ",  SUB(1) 

PRINT  "IS  ",  SUB(1),  "  CORRECT?" 

INPUT  X* 

IF  X«  *  -Y"  THEN  220  ;  GOTO  180 

IF  SUB(1)  <  0  OR  SUB(1)  >  999  THEN  180 

IF  HEAD(I)  =  40  THEN  240  ,*  IF  HEAD ( 1 )  =  50  THEN  250 

PUT  200  IN  PFH  J  PUT  BASE ( 1 >  IN  PFB  }  PUT  SUB < 1 >  IN  PFS  ;  GOTO  260 

PUT  210  IN  PFH  J  PUT  BASE < 1 )  IN  PFB  ;  PUT  SUB<1)  IN  PFS 

XEQ  DRD 

FOR  S  -  1  TO  225 

U  «  DMEM(S)  ;  y*(S,S)  =  CHRKU)  ;  NEXT  S 
PUT  208  IN  PFH  ,*  XEQ  DRD 
FOR  S  =  1  TO  66 

UU  =  DMEM(S)  ;  YKS,S)  =  CHRKUU)  ;  NEXT  S 

HSM >=VAL(YK30,34));  0$ (1 )=V*( 1 43) ;  CH(1 )=VAL <0* ( 1 ) ) ;  HR(1)  =  HS(1)  /  10 


PRINT  ;  INP 
PRINT  "IS  " 
INPUT  X* 

IF  X*  =  "Y" 


INPUT  "WHAT  IS  THE  MIN.  VOLTAGE  LEVEL  (A  NEG.  «> 
S  ",  V A ( 1 ) ,  "  CORRECT?" 


VA  <  1 ) 


IF  X*  =  "Y"  THEN  370  ;  GOTO  330 
VR( 1 )  =  -VA ( 1 )  *2/10 
INPUT  "INPUT  GAIN  FOR  THE  PLOTTING  OF  E.P 
PRINT  "IS  ",  GAIN* ( 1 ) ,  -  CORRECT?" 

INPUT  X4 

IF  X*  =  "Y"  THEN  420  ;  GOTO  380 

XEQ  DEF  ;  PUT  1.0  IN  ROT 
SUBK1)  =  STR<<SUB<1 ) ) 

N0FK1 )  =  SUBNO* (1,1)  ;  NOF* (2,3)  =  SUBN0*<3,4)  ; 
IF  0*( 1 )  =  "1"  THEN  490  ;  IF  0*<1)  =  “2"  THEN  720 

IF  OKI)  «  “3*  THEN  510  ;  IF  OKI)  =  "4"  THEN  680 

IF  0*< 1 )  *  "5"  THEN  540  ;  IF  0*< 1 )  =  "6"  THEN  640 

IF  OKI)  *  "7"  THEN  570  :  IF  0* ( 1 )  =  "8"  THEN  600 


WAVEFORMS  -  ",  GAIN* < 1 ) 


NOF*  <  4,6)  =  SUB* (2,4) 


490  Dd)  =  .2;  CH4d)=C1i;  N1d)=215;  N2d)=219;  N3d)=220;  N4(1)=224 

500  GOSUB  1340  ;  GOSUB  1430  ;  GOSUB  1390  ;  GOTO  750 

510  SIZE  0,-8. 5  ,*  MEET  PENUP,  1,-1  ;  XEO  DEF  ;  PUT  1.0  IN  ROT 

520  D( 1-)  =  .2 ;  CH4(1)=C34;  N1(1)=195;  N2(1)=199;  N3(1)=200;  N4(1)=204 

530  60SUB  1340  ;  GOSUB  1430  ;  GOSUB  1390  ;  GOTO  810 

540  SIZE  0,-17  ;  MEET  PENUP,  1,-1  ;  XEQ  BEF 

550  D(1)=.2;  CH4(1)=C54;  N1(1)-175;  N2<1)=1?9;  N3d)  =  180;  N4d>  =  184 
560  GOSUB  1340  ;  GOSUB  1430  ;  GOSUB  1390  ;  GOTO  690 
570  SIZE  0,-25. 5  ;  VECT  PENUP,  1,-1  ;  XEQ  DEF 

580  Dll  )  =  .2J  CH*n)=C7«;  NH1)  =  155;  N2d  )s159;  N3d)  =  160;  N4(1)=164 
590  GOSUB  1340  ;  GOSUB  1430  ;  GOSUB  1390  ;  60T0  650 
600  SIZE  0,-25. 5  J  VEET  PENUP,  1,-1  ;  XEO  DEF 

610  Dd)  =  .2j  CH4(1 )=C64J  N1(1)=165;  N2(1)=169;  N3(1)=170;  N4d)  =  1?4;  GOSUB  1340 
620  D( 1  )=3.85;  CH4d)=C74;  HI (1 >  =  155;  N2(1)  =  159;  N3(1)  =  160;  N4(1)  =  164 
630  GOSUB  1340  ;  GOSUB  1470  ;  GOSUB  1930  ;  GOSUB  1390  ;  GOTO  650 

640  SIZE  0,-17  ;  VEET  PENUP,  1,-1  ;  XEG  DEF 

65v  D(1)=.2;  EH  1)=C6*5  N1d)  =  165;  N2(1)*169;  N3(1)=170;  N4d)  =  1?4;  GOSUB  1340 

660  D(1)=3.85;  EH* ( 1 )  =C5* ;  HI < 1 )  =  1 75 ;  H2( 1  )  =  1 79 ;  N3d)  =  180;  N4d>  =  184 

670  GOSUB  1340  ;  GOSUB  1470  ;  GOSUB  1930  ;  GOSUB  1390  ;  GOTO  690 

680  SIZE  0,-8. 5  ;  VEET  PENUP,  1,-1  ;  XEQ  DEF  ;  PUT  1.0  IN  ROT 

690  Dd)  =  .2;  CH*(t>=E4$;  Nt(1>*185;  N2d>*189;  N3d>*190;  N4(1)=194;  GOSUB  1340 

700  D(1)=3.B5;  CH4(1)=C3«;  HI (1 >=195;  N2d  >  =  199;  N J ( 1 ) -200;  N4d)=204 

710  GOSUB  1340  ;  GOSUB  1470  ;  GOSUB  1930  ;  GOSUB  1390 

720  D(1)=.2;  CH4d)=C2$;  N1(1)*205;  N2d)*209;  N3 < 1 > -210;  N4<1)=214;  GOSUB  1340 

730  D( 1 )=3.85;  CH* ( I ) =E1 * ;  HI < 1  )=215;  N2d)=219;  N3<1>=220;  N4d)=225 
740  GOSUB  1340  ;  GOSUB  1470  ;  GOSUB  1930  J  GOSUB  1390 
750  SZ11)  =  VAL(Y*(21 ,24) )  ;  PLTSZd)  =  SZd)  /  CHd) 

760  PUT  0  IN  F ST  ;  PUT  SIM)  IN  PSZ  ;  PUT  2  IN  PDV 

770  PUT  196  IN  PFH  ;  PUT  BASEd  )  IN  PFB  ;  PUT  SUBd)  IN  PFS  {  XEO  DRD 

780  PUT  PLTSZd)  IN  PSZ  J  XEQ  DEF  ;  PUT  1.0  IN  ROT 

790  IF  0*d)  =  Hr  THEN  1130;  IF  0* ( 1 )  =  ‘'2"  THEN  1090;  IF  0*d)*u3"  THEN  1040 

800  IF  04(1 )  =  "4 "  ; HEN  1  000;  IF  C4d)  =  "5"  THEN  950;  IF  04(1  )--"6"  THEN  910 

810  IF  0*(1>  =  ”7"  THEN  860  ;  IF  04(1)  =  "8"  THEN  820 

820  SIZE  0,-34  ;  VEET  F'ENUP,  1,-1  ;  XEG  DEF 

830  SIZE  - 1 , - . 8  ;  VECT  PENUP,  1,1 

840  PUT  PLTSZd)  *  7  IN  PST  ;  SIZE  -9,-3  ;  XEQ  DPL 

850  GOTO  880 

860  SIZE  0,-34  ;  VECT  PENUP.  1,-1  ;  XEQ  DEF 

870  SIZE  -1 ,-.8  J  VECT  PENUP,  1,1  ;  GOTO  890 

880  SIZE  -1,-4  ;  VECT  PENUP,  1,1 

890  PUT  PLTSZd)  *  6  IN  PST  ;  SIZE  -9,-3  ;  XEQ  DPL 

900  SIZE  0,-8. 5  ;  VECT  PENUP,  1,1  ;  GOTO  920 

910  SIZE  0,-25. 5  ;  VECT  PENUP,  1,-1 

920  XEG  DEF  ;  SIZE  ;  VECT  PENUP,  1,1 

930  PUT  PLTSZd)  *  5  IN  PST  ;  SIZE  -9,-3  ;  XEQ  DPL 

940  GOTO  970 

950  SIZE  0,-25. 5  ;  VECT  PENUP,  1,-1  ;  XEQ  DEF 
960  SIZE  -1 ,-.8  J  VECT  PENUP,  1,1  ;  GOTO  980 
970  SIZE  -1,-4  ;  VECT  PENUP,  1,1 
980  PUT  PLTSZd)  *  4  IN  PST  ;  SIZE  -9,-3  ;  XEQ  DPL 
990  SIZE  0,-8. 5  ;  VECT  PENUP,  1,1  ;  GOTO  1010 


1000  SIZE  0,-17  ;  VECT  PENUP,  1,-1 
1010  XEQ  DEF  ;  SIZE  -1,-.8  ;  VECT  PENUP,  1,1 
1020  PUT  PLTSZ(  1  ):*  3  IN  PS7  ;  SIZE  -9,-3  ;  XEQ  DPL 
1030  GOTO  1060 

1040  SIZE  0,-17  ;  VECT  PENUP,  1,-1  ;  XEQ  DEF 

1050  SIZE  -1  ,-.8  ;  VECT  PENUP,  1,1  ;  GOTO  1070 

1060  SIZE  -1,-4  ;  VECT  PENUP,  1,1 

1070  PUT  PLTSZU)  *  2  IN  PST  ;  SIZE  -9,-3  ;  XEQ  DPL 

1080  SIZE  0,-8.5  ;  VECT  PENUP,  1,1  ;  GOTO  1100 

1090  SIZE  0,-8. 5  ;  VECT  PENUP,  1,-1 

1100  XEQ  DEF  ;  SIZE  -1,-.8  ;  VECT  PENUP,  1,1 

1110  PUT  PLTSZ < 1 )  IN  PST  ;  SIZE  -9,-3  ;  XEQ  DPL 

1120  GOTO  1150 

1130  SIZE  0,-8. 5  ;  VECT  PENUP,  1,-1  ;  XEQ  DEF 

1140  SIZE  -1 ,-.8  ;  VECT  PENUP,  1,1  ;  GOTO  1160 

115*  SIZE  -1,-4  ;  VECT  PENUP,  1,1 
1160  PUT  0  IN  PST  ;  SIZE  -9,-3  ;  XEQ  DPL 
1170  VECT  PENUP,  0,0 

1180  PRINT  ;  INPUT  "DO  YOU  WISH  TO  PLOT  ANOTHER  FILE?  -  ",  X4 

1190  IF  X$  =  "Y"  THEN  1210  ;  IF  X4  =  MN"  THEN  1310  ;  GOTO  1180 

1200  PRINT  ;  INPUT  "IS  THE  FILE  IN  THIS  SERIES  -  ",  X* 

1210  IF  X*  =  "Y"  THEN  1230  ;  IF  XI  =  "N"  THEN  1220  J  GOTO  1200 

1220  GOSUB  2100  ;  GOTO  120 

1230  INPUT  "IS  THE  FILE  NEXT  IN  THIS  SEQUENCE?  -  ",  X« 

1240  IF  XI  =  "Y"  THEN  1250  ;  IF  X*  =  "N"  THEN  1260  ;  GOTO  1230 

1250  SUB ( 1 )  =  SUB ( 1 )  +  1  ;  GOSUB  2100  ;  GOTO  420 

1260  INPUT  "INPUT  THE  FULL  SUBSCRIPT  OF  THE  NEU  FILE  -  ",  SUB<1) 

1270  PRINT  "IS  ",  SUB(I),  "  CORRECT?" 

1280  INPUT  X4 

1290  IF  X«  =  "Y"  THEN  1300  ;  GOTO  1260 
1300  GOSUB  2100  ;  GOTO  420 

1310  PRINT  ;  INPUT  "DO  YOU  UAN7  TO  CONTINUE  UITH  ANOTHER  PROGRAN?  -  ", 

1320  IF  XI  =  "Y"  THEN  1330  ;  IF  XI  =  "N"  THEN  2190  J  GOTO  1210 

1330  RUN  EPPROG 
1335  STOP 

1340  SIZE  -1.2,-D(1)  ;  VECT  PENUP,  1,1  ;  PLOT  -.1,  CH411) 

1350  SIZE  -2.0, -D(1)  ;  VECT  PENUP,  1,1  ;  PLOT  -.1,  V4(N1 ( 1 ) ,N2< 1 ) ) 

1360  SIZE  -2.4,-D(1)  *,  VECT  PENUP,  1,1  ;  PLOT  -.1,  N< 

1370  SIZE  -2. 6, -DU)  ,’  VECT  PENUP,  1,1  ;  PLOT  -.1,  V$<N3U),N4(1)> 

1380  RETURN  ;  STOP 

1390  VECT  PENUP,  0,0  ;  PUT  2.0  IN  ROT  ;  SIZE  -3, -.2  ;  VECT  PENUP,  1,-1 
1400  PLOT  -.1,  H$ 

1410  SIZE  -8.5,0  ;  VECT  PENUP,  1,-1  ;  XEQ  DEF  ;  PUT  1.0  IN  ROT 
1420  RETURN  ;  STOP 

1430  XX  =  -10  J  SIZE  -1,-3. 8  ;  VECT  PENUP,  1,1 

1440  SIZE  XX, -3. 8  ;  VECT  PENDN,  1,1  ;  FOR  S  —  0  TO  10 

1450  SIZE  XX, -3. 7  ,*  VECT  PENUP,  1,1  ,*  SIZE  XX, -3. 9  ;  VECT  PENDN,  1,1 

1460  XX  =  XX  -  C  ;  NEXT  S 

1470  SIZE  -2. 4, -8. 2  ;  VECT  PENUP,  1,1  ;  PLOT  -.2,  Ft 
1480  SIZE  -.5, -7.9  ;  VECT  PENUP,  1,1  ;  PLOT  -.1,  C» 

1490  SIZE  -1.2, -7. 9  ;  VECT  PENUP,  1,1  ,*  PLOT  -.1,  V*(1,34) 


1500  SIZE  -.5, -7. 7  ;  VECT  PENUP,  1,1  ,*  PLOT  -.1,  FN* 

1510  SIZE  -1 .7,-7. 7  ;  VECT  PENUP,  1,1  ;  PLOT  -.1,  NOFId ) 

1520  SIZE  -.5, -7. 5  ;  VECT  PENUP,  1,1  ;  PLOT  -.1,  D* 

1530  SIZE  -2. 2, -7. 5  ;  VECT  PENUP,  1,1  ;  PLOT  -.1,  V*(35,39) 

1540  SIZE  -.5, -7. 3  ;  VECT  PENUP,  1,1  ;  PLOT  -.1,  El 

1550  SIZE  -2. 3, -7. 3  ;  VECT  PENUP,  1,1  ;  PLOT  -.1,  V*<56,61) 

1560  SIZE  -4. 75, -7. 9  ;  VECT  PENUP,  1,1  ;  PLOT  -.1,  A* 

1570  SIZE  -5. 7, -7. 9  ;  VECT  PENUP,  1,1  ;  PLOT  -.1,  Vl<50,55) 

1580  SIZE  -4. 75, -7. 7  ;  VECT  PENUP,  1,1  ;  PLOT  -.1,  Bl 
1590  SIZE  -5. 4, -7. 7  ;  VECT  PENUP,  1,1  ;  PLOT  -.1,  V*<41,«8) 

1600  SIZE  -4. 75, -7. 5  J  VECT  PENUP,  1,1  J  PLOT  -.1,  U* 

1610  SIZE  -6, 6, -7. 5  ;  VECT  PENUP,  1,1  ;  PLOT  -.1,  Yld,5) 

1620  SIZE  -4. 75, -7. 3  ;  VECT  PENUP,  1,1  ;  PLOT  -.1,  II 

1630  SIZE  -5. 95, -7.3  J  VECT  PENUP,  1,1  ;  PLOT  -.1,  Yl(8,9) 

1640  SIZE  -8, -7. 9  ;  VECT  PENUP,  1,1  ;  PLOT  -.1,  J« 

165^  SIZE  -9. 6, -7. 9  ,*  VECT  PENUP,  1,1  ;  PLOT  -.1,  Yl(11,12) 

1660  SIZE  -8, -7. 7  ;  VECT  PENUP,  1,1  ;  PLOT  -.1,  K4 

1670  SIZE  -10, -7. 7  ;  VECT  PENUP,  1,1  ;  PLOT  -.1,  Y*<25,28> 

1680  SIZE  -8, -7. 5  ;  VECT  PENUP,  1,1  ;  PLOT  -.1,  LI 

1690  SIZE  -9. 5, -7. 5  ;  VECT  PENUP,  1,1  ;  PLOT  -.1,  Yl<30,34) 

1700  SIZE  -8, -7. 3  J  VECT  PENUP,  1,1  J  PLOT  -.1,  NOI 
1710  SIZE  -9. 6, -7. 3  J  VECT  PENUP,  1,1  ;  PLOT  -.1,  Yl(60,63) 

1720  SIZE  -7. 5, -3. 85  ;  VECT  PENUP,  1,1  J  PLOT  -.1,  GAI 

1730  SIZE  -8. 6, -3. 85  ;  VECT  PENUP,  1,1  ;  PLOT  -.1,  GAINId) 

1740  SIZE  -10, -.8  ;  VECT  PENUP,  1,1  ;  SIZE  -1 ,- .8  ;  VECT  PENDN,  1,1 

1750  XX  =  -1  ;  UHAd)  =  0  J  FOR  S  =  0  TO  10 

1760  SIZE  XX, -.7  ;  VECT  PENUP,  1,1  ;  SIZE  XX, -.9  ;  VECT  PENDN,  1,1 

1770  SIZE  (XX+.4)  ,-.4  ;  VECT  PENUP,  1,1  J  PLOT  -.1,  UHAd)  IN  4,4 

1780  XX  =  XX  +  C  ',  UHA ( 1 )  =  UHA(1)  +  HR ( 1 )  ;  NEXT  S 

1790  SIZE  -5, -.2  ;  VECT  PENUP,  1,1  ;  PLOT  -.1,  Gl 


1800 

SIZE 

-1,-3. 8  ;  VECT  PENUP, 

1,1 

;  size 

-1,-.B  ; 

VECT  PENDN,  1,1 

1810 

XX  * 

-.8  ;  UVA(1)  =  VAdi  ; 

FOR 

s  =  0 

TO  10 

1820 

SIZE 

-.9, XX  ;  VECT  PENUP,  1 

,i  ; 

SIZE  - 

■1.1, xx  ; 

VECT  PENDN,  1,1 

1830 

SIZE 

-.35, XX  ;  VECT  PENUP, 

M 

;  PLOT 

-.1,  UVA(1) 

IN  2,3 

1840 

XX  = 

XX  +  N  ,•  UVAd)  =  UVAd)  •+ 

VRd) 

,*  NEXT  S 

1850 

SIZE 

-1,-2. 3  ;  VECT  PENUP, 

1,1 

;  p  =**  - 

-.1  ;  Z  = 

-1 

.1  ;  FOR  S  =  1 

I860 

SIZE 

Z , -2 . 3  ;  VECT  PENDN,  1 

,i  ; 

z  =  z 

P 

1870 

SIZE 

Z.-2.3  ;  VECT  PENUP,  1 

,i  ; 

z  =  z 

+  p  ;  NEXT 

s 

1880 

SIZE 

-10, -.8  ;  VECT  PENUP, 

M 

;  size 

-10, -3. 8 

J 

VECT  PENDN,  1,1 

1890 

XX  = 

-3.8  ;  FOR  S  *  0  TO  10 

1900 

SIZE 

-9. 9, XX  ;  VECT  PENUP, 

1,1 

;  size 

-10.1, XX 

• 

9 

VECT  PENDN,  1,1 

1910 

XX  = 

XX  -  «  ;  NEXT  S 

1920  RETURN  ;  STOP 

1930  SIZE  -1,-4  J  VECT  PENUP,  1,1  ;  SIZE  -1,-7  ;  VECT  PENDN,  1,1 

1940  XX  *  -4  ;  UVA< 1 )  »  VA< 1 )  ;  FOR  S  *  0  TO  10 

1950  SIZE  -.9, XX  ;  VECT  PENUP,  1,1  ;  SIZE  -1.1, XX  ;  VECT  PENDN,  1,1 

1960  SIZE  -.35, XX  ;  VECT  PENUP,  1,1  ;  PLOT  -.1,  UVA(1)  IN  2,3 

1970  XX  *  XX  ♦  H  ;  UVAd)  *  UVA(1)  +  VRd)  ;  NEXT  S 

1980  XX  *  -10  ;  SIZE  -1,-7  ;  VECT  PENUP,  1,1 

1990  SIZE  XX, -7  J  VECT  PENDN,  1,1  ;  FOR  S  *  0  TO  10 

2000  SIZE  XX, -6. 9  ;  VECT  PENUP,  1,1  ;  SIZE  XX, -7.1  ;  VECT  PENDN,  1,1 


2010  XX  *  XX  -  C  ;  NEXT  S 

2020  SIZE  -1,-5. 5  ;  VECT  PENUP,  1,1  ;  P  *  -.1  ;  Z  ■  -1.1  ;  FOR  S  =  1  TO  45 

2030  SIZE  Z,-5.5  ;  VECT  PENDN,  1,1  ;  Z  »  2  ♦  P 

2040  SIZE  Z,-5.5  VECT  PENUP,  1,1  ;  Z  =  2  ♦  P  ;  NEXT  S 

2050  SIZE  -10,-4  ;  VECT  PENUP,  1,1  ;  SIZE  -10,-7  ;  VECT  PENDN,  1,1 

2060  XX  =  -7  ;  FOR  S  =  0  TO  10 

2070  SIZE  -9. 9, XX  ;  VECT  PENUP,  1,1  ;  SIZE  -10.1, XX  ;  VECT  PENDN,  1,1 
2080  XX  =  XX  -  «  ;  NEXT  S 
2090  RETURN  ;  STOP 

2100  IF  00(1)  =  "1"  OR  00(1)  =  "2"  THEN  2140 

2110  IF  01(1)  =  "3"  OR  Old)  =  “4"  THEN  2150 

2120  IF  04(1)  =  "5”  OR  04(1)  =  -6"  THEN  2160 

2130  IF  04(1)  =  "7"  OR  04(1)  =  M8M  THEN  2170 

2140  SIZE  0,-8. 5  ;  VECT  PENUP,  1,1  ;  60T0  2180 
2150  SIZE  0,-17  ;  VECT  PENUP,  1,1  ;  GOTO  2180 
216<  SIZE  0,-25. 5  ;  VECT  PENUP,  1,1  ;  GOTO  2180 
2170  SIZE  0,-34  ;  VECT  PENUP,  1,1 
2180  RETURN  ;  STOP 
2190  END 


LIST  PLOTBU 

* 

5  REM  (10  -  110)  -  DIMENSION  VARIABLES  AND  ASSIGN  VALUES  TO  SOME  VARIABLES 

115  REM.  (120)  -  SELECT  START  AND  SIZE  OF  BHEM  AND  THE  DISK  DRIVE  TO  BE  USED. 

116  REM  ALSO  REPLACES  FILES  BACK  INTO  THE  SAME  LOCATION  AS  FOUND. 

125  REM  (130  -  160)  -  INPUT  THE  I.D.  NUMBER  OF  THE  SUBJECTS  UHOSE  FILE  IS 

126  REM  TO  BE  PLOTTED.  USER  IS  ASKED  TO  VALIDATE  VARIABLE'S  VALUE. 

165  REM  (170)  -  THE  FILE  BASE  IS  THE  LAST  TUO  M'S  OF  THE  SUBJECT'S  I.D.  NUMBER 

166  REM  THE  FILE  HEADER  IS  THE  FIRST  DIGIT  OF  THE  SUBJECT'S  I.D.  NUMBER. 

175  REM  <180  -  220)  -  INPUT  THE  FILE  SUBSCRIPT.  USER  IS  ASKED  TO  VALIDATE 

176  REM  VARIABLE'S  VALUE.  FOLLOWED  BY  A  CHECK  ON  VALUES  RANGE. 

225  REM  (230  -  250)  -  THE  FILE  HEADER  IS  CHECKED  TO  DETERMINE  IF  THE  SUBJECT 

226  REM  UAS  HUMAN  OR  A  RHESUS.  THE  CORRECT  RESPONSE  IS  THEN  PLACED  INTO  THE 

227  REM  FILE  HEADER.  THE  BASE  AND  SUBSCRIPT  NUMBER  ARE  ALSO  SET. 

255  REM  (260)  -  THE  FILE  SECLECTED  IS  READ  FROM  DISK  TO  DMEM . 

265  REM  (270  •  280)  -  THE  SUBJECT'S  PERSONAL  FILE  IS  READ  AND  CHANGED  FROM 

26.>  REM  ASCII  CODE  TO  NORMAL  CHARACTERS. 

285  REM  (290  -  310)  -  THE  SUBJECT'S  PARAMETER  FILE  IS  READ  FROM  DISK  TO  DMEM  AND 

286  REM  CHANGES  FROM  ASCII  CODE  TO  NORMAL  CHARACTERS. 

315  REM  (320)  -  THE  SUEEP  LENGTH  AND  THE  NUMBER  OF  CHANNELS  RECORDED  ARE 

316  REM  TAKEN  FROM  THE  PARAMETER  FILE  AND  THE  PERSONAL  FILE  RESPECTFULLY. 

317  REM  THE  VARIABLE  UITH  THE  CHANNEL  INFORMATION  IS  ALSO  PLACED  INTO  A 

318  REM  NON-STRING  VARIABLE.  THE  TIME  SCALE  INCRIMENTATION  IS  DETERMINED. 

325  REM  (330  -  370)  -  INPUT  THE  MIN.  VOLTAGE  LEVEL  OF  THE  UAUEFORK.  USER  IS 

326  REM  ASKED  TO  VALIDATE  VARIABLE'S  VALUE.  THE  VOLTAGE  INCRIMENTATION  IS 

327  REM  DETERMINED 

375  REM  (380  -  410)  -  INPUT  THE  GAIN  TO  BE  USED  IN  PLOTTING.  USER  IS  ASKED  TO 

376  REM  VALIDATE  THE  VARIABLE  S  VALUE. 

415  REM  (420)  -  SETTING  THE  POINT  OF  ORIGIN  FOR  THE  ZETA  PLOTTER  TO  THE 

416  REn  PRESENT  PEN  LOCATION  AND  A  PEN  ROTATION  OF  1.0 

425  REM  (430)  -  SETTING  A  STRING  VARIABLE  EQUAL  TO  THE  SUBJECT  NUMBER. 

435  REM  (440)  -  FIND  FILENAME  OF  THE  UAVEFORHS  TO  BE  PLOTTED. 

445  REM  (450  -  480)  -  CONDITIONAL  BRANCH  FOR  PLOTTING  OUT  THE  CORRECT 

446  REM  NUMBER  OF  CHANNELS. 

485  REM  (485  -  810)  -  PLOTS  OUT  THE  ENCLOSURE  FOR  THE  WAVEFORM  AND  HEADER  INFO. 

815  REM  (820  -  1170)  -  PLOTS  OUT  THE  INDIVIDUAL  EVOKED  POTENTIAL  UAVEFORn  IN 

816  REM  IT'S  ENCLOSURE. 

1175  REM  (1180  -  1190)  -  ENABLES  USER  TO  PLOT  ANOTHER  FILE. 

1195  REM  (1200  -  1220)  -  ASKS  IF  FILE  IS  IN  THIS  SERIES. 

1225  REM  (1230  -  1240)  -  CHECKS  TO  SEE  IF  FILE  IS  NEXT  IN  SEQUENCE. 

1245  REM  (1250)  -  INCREASES  THE  SUBSCRIPT  BY  1.  ADVANCES  6RAPH  PAPER,  AND 

1246  REM  RERUNS  THE  PROGRAM 

1255  REM  (1260  -  1 300 ^  -  IF  FILE  IS  NOT  IN  SEQUENCE  OR  IN  THIS  SERIES  INPUT 

1256  REM  THE  CORRECT  FILE  SUBSCRIPT.  ADVANCE  GRAPH  PAPER  AND  RERUN  PROG. 

1305  REM  (1310  -  1330)  -  ENABLES  USER  TO  EXIT  PROGRAN  OR  RUN  ANOTHER  PROGRAM 
1335  REM  END  OF  THE  NAIN  PROGRAN  AND  START  OF  SUBROUTINES. 

1345  REM  END  OF  THE  MAIN  PROGRAM  AND  START  OF  SUBROUTINES 

1346  REM  (1350  -  1380)  -  PLOTTING  OF  THE  CHANNEL  NUNBER  AND  ITS  MONTAGE  INFO. 

1385  REM  (1390  -  1420)  -  PLOTS  OUT  THE  HEADER  '(IN  UV)'  AT  A  RIGHT  ANGLE  TO 

1386  REM  THE  OTHER  HEADER  INFORMATION. 


1425  REN  (1430  -  1440)  -  IF  A  ODD  NUMBER  OF  CHANNELS  ARE  TO  BE  PLOTTED  THIS 
1424  REM  PLOTS  OUT  THE  TOP  HORIZONTAL  LINE  AND  INCRIHENTS  THE  TICK  HARKS  FOR 
1427  REM  THE  LAST  CHANNEL. 

1445  REM  (1470  -  1730)  -  PLOTS  OUT  THE  HEADER  INFORMATION. 

1735  REM  (1740  -  1780)  -  PLOTS  OUT  THE  LOUER  HORIZONTAL  LINE  UITH  ITS 

1734  REM  INCR1HENTED  TICK  HARKS. 

1785  REM  (1790)  -  PLOTS  OUT  THE  HEADER  INFORMATION  '(IN  NSEC)". 

1795  REN  (1800  -  1840)  -  PLOTS  OUT  THE  INCRINENTED  TINE  SCALE  AND  ITS  TICK 
1794  REM  HARKS. 

1845  REM  (1850  -  1870)  -  PLOTS  OUT  THE  CENTER  LINE  FOR  THE  LOUER  ENCLOSURE. 

1875  REM  (1880  -  1920)  -  PLOTS  OUT  THE  R16HT  VERTICAL  LINE  AND  ITS 

1874  REM  INCRINENTED  TICK  MARKS  FOR  THE  LOUER  RIGHT  VERTICAL  LINE. 

1925  REM  (1930  -  1970)  -  PLOTS  OUT  THE  LEFT  VERTICAL  LINE  UITH  ITS 
1924  REM  INCRINENTED  VOLTAGE  SCALE  AND  THE  TICK  NARKS. 

1975  REM  <1980  -  2010)  -  PLOTS  OUT  THE  TOP  HORIZONTAL  LINE  FOR  THE  UPPER 
1 974  REM  ENCLOSURE. 

2015  REM  (2020  -  2040)  -  PLOTS  OUT  THE  CENTER  LINE  FOR  THE  UPPER  ENCLOSURE. 

2045  REM  (2050  -  2090)  -  PLOTS  OUT  THE  UPPER  R16HT  VERTICAL  LINE  AND  ITS  TICK 

2044  REM  HARKS 

2095  REM  (2100  -  2180)  -  ADVANCES  THE  PLOTTING  PAPER  OF  THE  ZETA  PLOTTER  FOR  THE 
2094  REM  PLOTTING  OF  ANOTHER  EVOKED  POTENTIAL  FILE. 

2185  REM  END  OF  THE  PROGRAM 
9999  END 


LIST  LSTPER 

4 

10  DIM  Y* (225)  ,  V4 ( 66 )  ,  SUBN0K4) 

20  PUT  0  I N  PST  ;  PUT  1024  IK  PS2  ;  PUT  2  IN  PDV 

30  PRINT;  PRINT;  PRINT;  PRINT;  PRINT;  PRINT;  PRINT;  PRINT 

40  PRINT;  INPUT  "UHAT  IS  THE  SUBJECT'S  l.D.  NUMBER  -  ",  SUBN0K1 ) 

50  PRINT  "IS  ",  SUBN0K1),  “  CORRECT?" 

60  INPUT  XI 

70  IF  XI  =  "Y"  THEN  80  J  IF  XI  =  XI  THEN  30 

80  BASEC 1 )  =  VAL(SUBNOI (3,4) )  ;  HEAD(l)  =  ASC(SUBNOI<  1 ) ) 

90  PRINT;  INPUT  "UHAT  IS  THE  FILE  SUBSCRIPT  (3  IS  0  -  999)  -  ",  SU8(1) 
100  PRINT  "IS  ",  SUB < 1 ) ,  "  CORRECT?" 

110  INPUT  XI 

120  IF  XI  *  "T"  THEN  130  ;  IF  XI  =  XI  THEN  90 

130  IF  SUB < 1 )  <  0  OR  SUB  < 1 )  >  999  THEN  90 

140  IF  HEAD < 1 )  =  40  THEN  150  ;  IF  HEAD  < 1 >  =  50  THEN  160 

15*  PUT  200  IN  PFH  ;  PUT  BASE 4 1 )  IN  PFB  J  PUT  SUBU)  IN  PFS  ;  GOTO  170 

160  PUT  210  IN  PFH  ;  PUT  BASE(I)  IN  PFB  ;  PUT  SUB(1)  IN  PFS 

170  XEQ  DRD 

180  FOR  S  -  1  TO  225 

190  X  =  DMEM(S)  ;  Y4(S,S )  *  CHRKX) 

200  NEXT  S 

210  PUT  208  IN  PFH 

220  XEQ  DRU 

230  FOR  S  *  1  TO  66 

240  X  =  DHEM(S)  ;  VI(S,S)  *  CHRKX) 

250  NEXT  S 

260  PRINT  ;  PRINT  "TURN  PAPER  TO  THE  TOP  OF  A  FRESH  PAGE  SO  THAT  ALL" 

270  PRINT  "  DATA  U ILL  BE  PRINTED  ON  IT'S  OWN  PAGE." 

280  INPUT  "  AFTER  FIXING  PAPER  TYPE  Y  TO  CONTINUE.",  XI 

290  IF  XI  =  "Y"  THEN  300  ;  IF  XI  a  XI  THEN  260 

300  PRINT;  PRINT;  PRINT;  PRINT  “SUBJECT  S  NAME  -  ",  Yl(1,34) 


310  PRINT  ;  PRINT  "SUBJECT'S  l.D.  NUMBER  -  ",  YK35,39) 

320  PRINT  ;  PRINT  "DATE  OF  EXPERIMENT  -  ",  tl(41,48) 

330  PRINT  ;  PRINT  "G-FORCE  OF  EXPERIMENT  -  ",  Yl(50,55) 

340  PRINT  ;  PRINT  "EXPERIMENT'S  RUN  NUMBER  -  ",  Y4(56,61> 

350  PRINT  ;  PRINT  "TINE-OF-DAY  -  ",  YK63,68) 

360  PRINT  ;  PRINT  "AIR  TEMP  IN  ROOM  (IN  F)  -  ",  Y4(69,?3) 

370  PRINT  ;  PRINT  "SUBJECT'S  TEMP  (IN  F)  -  ",  Y4(74,78) 

380  PRINT  ;  PRINT  "SUBJECT'S  HEART  RATE  (PER  MIN)  -  ",  YK79,82) 
390  PRINT  ;  PRINT  "COMMENTS  -  ",  Yl<83,142) 

400  PRINT  ;  PRINT  "URIST  STIMULATED  -  ",  Vl(1,5> 

410  PRINT  ;  PRINT  "SUBJECT'S  THRESHOLD  -  ",  VK34,38) 

420  PRINT  ;  PRINT  "STIMULUS  INTENSITY  -  ",  Vl(40,43) 

430  PRINT  ;  PRINT  "DELAY  TIME  (IN  MS)  -  ",  Vl<8,9> 

440  PRINT  ;  PRINT  "STIMULI  PER  SECOND  -  ",  VI ( 11,12) 

450  PRINT  ;  PRINT  "LENGTH  OF  SWEEP  -  ",  VI (30,34) 

460  PRINT  ;  PRINT  "DUELL  TIME  -  ",  V4<25,28) 

470  PRINT  ;  PRINT  "STIMULUS  PERIOD  -  ",  Vl(13,14) 

480  PRINT  ;  PRINT  "NUMBER  OF  SUEEPS  -  ",  V!(60,63) 


8.31 


490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 


PRINT  :  PRINT  "NUMBER  OF  CHANNELS 


Y$( 143, 144 ) 


PRINT;  PRINT 
PRINT;  PRINT 
PRINT;  PRINT 
print;  PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
IF  XI 
PRINT 
IF  XI 

RUN  EPPROG 
STOP  ;  END 


MONTAGE  FOR  CHANNEL  8  1" 
INPUT  A",  Y4(215,219) ,  "  INPUT  BM, 
MONTAGE  FOR  CHANNEL  N  2" 
INPUT  A",  Yt(205,209) ,  "  INPUT  B", 


;  PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


MONTAGE  FOR  CHANNEL  «  3“ 
INPUT  A",  Yl( 195, 199) ,  ■  INPUT  B", 
MONTAGE  FOR  CHANNEL  8  4" 
INPUT  A",  Y4<185,189),  “  INPUT  B", 
MONTAGE  FOR  CHANNEL  N  5" 
INPUT  A",  Yl<175,179) ,  "  INPUT  B", 
MONTAGE  FOR  CHANNEL  8  6" 
INPUT  A",  Y4< 165, 169) ,  "  INPUT  B", 
MONTAGE  FOR  CHANNEL  N  7" 
INPUT  A",  Yl<155,159>,  “  INPUT  B“, 
MONTAGE  FOR  CHANNEL  M  8” 
INPUT  A",  Yl<145,149),  M  INPUT  B", 

«0" 

08(20,24 ) 

PRINT  "AHPL1FIER/FILTER  SENSITIVITY  (IN  UV)  - 
PRINT  "AMPLIFIER/FILTER  LOU  BANDPASS  (IN  HZ) 
PRINT  "AMPLIFIER/FILTER  HIGH  BANDPASS  (IN  HZ) 
PRINT  ;  PRINT  ;  PRINT  ;  PRINT  ;  PRINT 
PRINT  ;  PRINT  ;  PRINT  ;  PRINT  ,*  PRINT 
INPUT  "DO  YOU  UISH  TO  LIST  ANOTHER  FILET  -  ", 
"Y"  THEN  30  {  IF  XI  =  "N"  THEN  760  J  IF  XI  ■ 
INPUT  “DO  YOU  UISH  TO  RUN  ANOTHER  PROGRAM7  - 
"Y"  THEN  780  ;  IF  XI  *  "N"  THEN  790  ;  IF  XI 


PRINT  "START  OF  DATA  MEMORY  - 
PRINT  "SIZE  OF  DATA  MEMORY  - 


PRINT 

PRINT 


Yl (220, 224) 
Y8(210,214) 

Yf (200  -  204) 
Y4(190,194) 
Y$(180,184) 
Yl(170,174) 

Y  *  < 1 60 ,164) 
Y$(150,154) 


",  Vl<46,49) 

-  ",  VI (51 ,53) 

-  ",  VI (55, 58) 

;  PRINT  ;  PRINT 
;  PRINT 
XI 

XI  THEN  740 
",  XI 

XI  THEN  760 


OK 


LIST  LISTBU 

♦ 

S  REN  DIMENSION  VARIABLES 
10  BIN  Yt<225)  ,  V4U6)  ,  SUBN04<4) 

IS  REN  SET  DATA  MEMORY  PARAMETERS  AND  SELECT  DISK  DRIVE  I  2. 

20  PUT  0  IN  PST  ;  PUT  1024  IN  PSZ  ;  PUT  2  IN  PDV 

30  print;  print;  print;  print;  print;  print;  print;  print 

35  REN  INPUT  THE  SUBJECT'S  I.D.  NUMBER 

40  PRINT;  INPUT  "UHAT  IS  THE  SUBJECT'S  I.D.  NUMBER  -  ",  SUBNQ4U) 

45  REN  VALIDATION  CHECK 

50  PRINT  "IS  ",  SUBNOOU),  "  CORRECT?" 

00  INPUT  Xi 

70  IF  Xi  *  "Y"  THEN  80  ;  IF  Xi  *  Xi  THEN  30 

75  REN  FIND  THE  FILE  BASE  AND  THE  FILE  HEADER 

80  BASE ( 1 )  -  VAL ( SUBNOB (3,4))  ;  HEAD ( 1 )  *  ASCISUBNOiU  ) ) 

85  REN  INPUT  THE  FILE  SUBSCRIPT 

9v  PRINT;  INPUT  "UHAT  IS  THE  FILE  SUBSCRIPT  (3  IS  0  -  999)  -  ",  SUBU) 

95  REN  VALIDATION  CHECK 
100  PRINT  "IS  ",  SUBU ) ,  "  CORRECT?" 

110  INPUT  X* 

120  IF  X*  *  "Y"  THEN  130  ;  IF  X*  «  Xi  THEN  90 
125  REN  CHECK  THE  DATA  RANGE  OF  THE  SUBSCRIPT 
130  IF  SUBU)  <  0  OR  SUBU)  >  999  THEN  90 

135  REN  DETERMINE  IF  SUBJECT  IS  HUNAN  OR  RHESUS  AND  READ  THAT  PERSONAL  FILE. 

140  IF  HEADU)  =  40  THEN  150  ;  IF  HEAD ( 1 )  =  50  THEN  140 

150  PUT  200  IN  PFH  J  PUT  BASEU)  IN  PFB  J  PUT  SUBU)  IN  PFS  J  GOTO  170 

UO  PUT  210  IN  PFH  ;  PUT  BASEU)  IN  PFB  }  PUT  SUBU)  IN  PFS 

170  XEQ  DRD 

175  REN  TRANSULATE  DATA  FROM  ASCII  CODE  TO  NORMAL  CHARA.  AND  PLACE  IN  VARIABLE 

180  FOR  S  =  1  TO  225 

190  X  =  DNEN(S)  ;  Y4(S,S)  *  CHRUX) 

200  NEXT  S 

205  REM  READ  THE  PAPAHETER  FILE 
210  PUT  208  IN  PFH 
220  XEQ  DRD 

225  REM  TRANSULATE  DATA  FROM  ASCII  CODE  TO  NORMAL  CHARA.  AND  PLACE  IN  VARIABLE 

230  FOR  S  =  1  TO  66 

240  X  *  DMEH(S)  ;  Vi(S,S)  «  CHRi(X) 

250  NEXT  S 

255  REM  ADVANCE  PAPER  TO  TOP  OF  A  CLEAN  PAGE. 

240  PRINT  ;  PRINT  "TURN  PAPER  TO  THE  TOP  OF  A  FRESH  PAGE  SO  THAT  ALL" 

270  PRINT  "  DATA  UILL  BE  PRINTED  ON  IT'S  OUN  PAGE." 

280  INPUT  "  AFTER  FIXING  PAPER  TYPE  Y  TO  CONTINUE.",  Xi 
290  IF  X*  «  "Y"  THEN  300  ;  IF  XI  *  X*  THEN  240 
295  REN  PRINT  OUT  THE  VARIABLES  AND  THEIR  VALUES 
300  PRINT;  PRINT;  PRINT;  PRINT  "SUBJECT'S  NAME  -  ",  YOU, 34) 

310  PRINT  ;  PRINT  "SUBJECT'S  I.D.  NUMBER  -  ",  Yt<35,39) 

320  PRINT  ;  PRINT  "DATE  OF  EXPERIMENT  -  ”,  Yi(41,48> 

330  PRINT  ;  PRINT  "G-FORCE  OF  EXPERIMENT  -  ",  Yi<50,55) 

340  PRINT  ;  PRINT  "EXPERIMENT'S  RUN  NUMBER  -  ",  Yl(54,41) 


r.-t.1 


PRINT  :  PRINT 
PRINT  ;  PRINT 
PRINT  ;  PRINT 
PRINT  ;  PRINT 
PRINT  ;  PRINT 
PRINT  ;  PRINT 
PRINT  ;  PRINT 
PRINT  ;  PRINT 
PRINT  *,  PRINT 
PRINT  ;  PRINT 
PRINT  ;  PRINT 
PRINT  ;  PRINT 
PRINT  ;  PRINT 
PRINT  ;  PRINT 
PRINT  ;  PRINT 
PRINT;  PRINT  H 

print;  print  - 
print;  print  ■ 
print;  print  ■ 

PRINT  ;  PRINT 


PRINT  "TINE-OF-DAY  -  ",  Yl<63,68) 

PRINT  "AIR  TEHP  IN  ROOM  (IN  F)  -  ",  Yl(69,73) 

PRINT  "SUBJECT'S  TENP  (IN  F)  -  ",  Yl(74,78> 

PRINT  "SUBJECT'S  HEART  RATE  (PER  KIN)  -  ",  Yl<79,82) 

PRINT  "COKNENTS  -  ",  Yl(83,142> 

PRINT  "URIST  STIMULATED  -  ",  Vl<1,5> 

PRINT  "SUBJECT'S  THRESHOLD  -  ",  (36,38 ) 

PRINT  "STIMULUS  INTENSITY  -  ",  V6 (40,43) 

PRINT  "DELAY  TIHE  (IN  NS)  -  ",  Vl(8,9) 

PRINT  "STIMULI  PER  SECOND  -  ",  Vl(11,12) 

PRINT  "LENGTH  OF  SUEEP  -  ",  VI (30,34) 

PRINT  "DUELL  TINE  -  ",  Vl(25,28> 

PRINT  "STIMULUS  PERIOD  >  ",  Vl(13,14> 

PRINT  "NUMBER  OF  SUEEPS  -  ",  VI (60, 63) 

PRINT  "NUMBER  OF  CHANNELS  -  ",  Yl(143,144) 

RINT  "  MONTAGE  FOR  CHANNEL  M  1” 

R I NT  "  INPUT  A",  Yt (215,219) ,  "  INPUT  B",  Yl(220,224) 

RINT  "  MONTAGE  FOR  CHANNEL  N  2" 

RINT  “  INPUT  A",  Yl(205,209),  "  INPUT  B",  Yl(210,214) 


PRINT;  PRINT  "  MONTAGE  FOR  CHANNEL  N  3" 

PRINT;  PRINT  •  INPUT  A",  Yl(195,199),  "  INPUT  B" ,  YK200  -  204) 
PRINT;  PRINT  "  MONTAGE  FOR  CHANNEL  N  4" 

PRINT;  PRINT  "  INPUT  A",  Yl(185,189),  "  INPUT  B",  Yl<190,194) 
PRINT;  PRINT  "  MONTAGE  FOR  CHANNEL  •  5" 

PRINT;  PRINT  "  INPUT  A”,  Y»(175,179),  "  INPUT  B",  Yl(180,184) 
PRINT;  PRINT  "  M0NTA6E  FOR  CHANNEL  «  A" 

PRINT;  PRINT  -  INPUT  A",  Yl(165,169),  "  INPUT  B",  Y4( 170,174) 
PRINT;  PRINT  "  MONTAGE  FOR  CHANNEL  N  7" 

PRINT;  PRINT  "  INPUT  A",  Yl(155,159),  "  INPUT  B",  Yl<160,164) 
PRINT;  PRINT  "  MONTAGE  FOR  CHANNEL  8  8" 

PRINT;  PRINT  "  INPUT  A”,  Y«<145,149),  "  INPUT  B",  Yl(150,154) 

PRINT;  PRINT  "START  OF  DATA  MEMORY  -  ",  "0" 

PRINT  ;  PRINT  "SIZE  OF  DATA  MEMORY  -  ”,  V!(20,24) 

PRINT  ;  PRINT  "AMPLIFIER/FILTER  SENSITIVITY  (IN  UV)  -  ",  V*(46,49) 
PRINT  ;  PRINT  "AMPLIFIER/FILTER  LOU  BANDPASS  (IN  HZ)  -  ",  Vl(51,53) 
PRINT  ;  PRINT  "AMPLIFIER/FILTER  HIGH  BANDPASS  (IN  HZ)  -  ",  Vl<55,58) 
REM  ADVANCE  PAPES 

PRINT  ;  PRINT  ;  PRINT  ;  PRINT  ;  PRINT  J  PRINT  ;  PRINT  ;  PRINT  ;  PRINT 

PRINT  ;  PRINT  ;  PRINT  ;  PRINT  ;  PRINT  ;  PRINT  ;  PRINT  ;  PRINT 

REM  RE-RUN  THE  PROGRAM  IF  WANTED. 

PRINT  ;  INPUT  "DO  YOU  UISH  TO  LIST  ANOTHER  FILE?  -  ",  XI 

IF  XI  *  "Y"  THEN  30  ;  IF  XI  *  "N"  THEN  760  ;  IF  XI  *  XI  THEN  740 

REN  RUN  POINTER  PR06RAM  IF  USER  UANTS  TO  RUN  ANOTHER  PR06RAM . 

PRINT  ;  INPUT  "DO  YOU  UISH  TO  RUN  ANOTHER  PROGRAM?  -  ",  XI 

IF  XI  «  "Y"  THEN  780  ;  IF  XI  *  "N"  THEN  790  ;  IF  X*  =  XI  THEN  760 

RUN  EPPR06 

REN  STOP  THE.  PROGRAM 
STOP  ;  END 


PRINT  " 
PRINT  " 
PRINT  " 
PRINT  " 
PRINT  " 
PRINT  " 
PRINT  " 
PRINT  " 
PRINT  " 
PRINT  " 
PRINT  " 
PRINT  " 


Yl ( 180 , 1 84 ) 
Yl ( 1 70, 174 ) 


Yl  ( 1  SO ,  1 S4 ) 


-  ",  VK46.49) 


